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łJff, co za upal Mam nadzieję, ze wszyscy wypoczywacie 
teraz Ina hamakach w cleniu palm, uszy koi wam plusk la¬ 
zurowego oceanu, a półnagie, roześmiane dziewczęta roz¬ 
noszą zimne napoje i odganiają owady 

Przepraszam Cię, czytająca osobo, jeżeli sama jesteś 
dziewczęciem, panienką lub kobietą Ńie Wiem czego Cl zy- 
czyc Na szczęście statystyczna niewiastą nie czyta Taje¬ 
mnic ATARI 

Nie wtem, czemu to przypisać Czyzby kobiety bały się 
komputerów ? Jak myszek? Że niby to niegroźne, ale nigdy 
~nte wiadomo, co zrobi? A może ktoś wie coś więcej na ten 
temat? Napiszcie do nas! 

Ciekawie rozwija się opowieść o niekonwencjonalnych 
zastosowaniach naszego komputera w cyklu "ATARI ina¬ 
czej" Ostatnio napłynęło do rdakcjl sporo ciekawych mate¬ 
riałów. Nie chcę wszystkiego zdradzać, bo pertraktacje sq 
jeszcze w toku dle radzę nie przegapcie następnych nume¬ 
rów! Sam aż drżę z niecierpliwości 

Planujemy stworzenie nowych rubryk i gdzie to się wszy¬ 
stko zmteścP), zgodnie z postulatami Czytelników. Na razie 
Inauguracja kącika " pantery " Będziemy w niej drukować 
wszysrtkie nowe pomysły, zachwyty i żałe dotyczące edyto¬ 
ra Panther 

Pozdrawiam Was, życzę udanych wakacji 


Redo&tor 
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tajethnlć* . 


Na Jednym z redakcyjnych biurek 
leży biała, tekturowa teczka z napi¬ 
sem "Prenumerata". Do teczki tej 
trafiają wszystkie listy czytelników 
TA, związane - Jak łatwo się domy¬ 
ślić - z prenumeratą Tak się skła¬ 
da, ze to Ja Jestem osobą, która za¬ 
gląda do opisanej teczki najczę¬ 
ściej. To Ja wkładam i wyciągam 
z niej koperty i właśnie ja odpowia 
dam za wysyłkę Waszych gazet. 
Dlaczego o tym piszę? Nie dlatego, 
ze mam ochotę porozmawiać o mo¬ 
jej pracy, ałe dlatego, ze mam kilka 
uwag, które chciałbym Wam prze¬ 
kazać, a które - mam nadzieję - 
pozwolą na szybszą i sprawniejszą 
realizację Waszej prenumeraty. 

Dociera do mnie sporo (co mie¬ 
siąc kilkanaście, a czasem nawet 
kilkadziesiąt) listów, w których 
skarżycie się, ze długo czekacie na 
gazety, za które zapłaciliście Już 
dawno, przelewając pieniądze na 
konto "Tajemnic ATARI", którego 
numer został podany.. Rozumiem 
Wasze zdenerwowanie, rozumiem, 
ze zaczynacie w takich przypad¬ 
kach podejrzewać nas o niesolid¬ 
ność, ale często myślę sobie, że nie 
potrafię sprawić cudu. O co cho¬ 
dzi? Otóż o to, że Wasze przelewy 
przebywają długą (i bardzo czaso¬ 
chłonną!) drogę zanim dotrą do re¬ 
dakcji TA. Załatwianie wszelkich 
reklamacji zaczynam od sprawdze¬ 
nia, czy mam u siebie dowód wpła¬ 
ty, dokonanej przez autora listu 


i wielokrotnie okazuje się, ze taki 
dokument Jeszcze do mnie nie do¬ 
tarł, Jak myślicie, co powinienem 
w takiej sytuacji zrobić? Mogę Wam 
powiedzieć, co robię - odkładam 
list do teczki i czekam na kolejną 
porcję przelewów, a potem spraw¬ 
dzam, czy odpowiedni Juz przy¬ 
szedł. aby wreszcie załatwić nie¬ 
przyjemną sprawę. Wszystko to za¬ 
biera masę czasu 1 powoduje 
ogromne opóźnienia, stąd mam 
wielką prośbę- Jeśli piszecie do TA 
w sprawach reklamacji, związa¬ 
nych z prenumeratą, nie zapomnij¬ 
cie włożyć do koperty kserokopii 
dowodu wpłaty Przecież to mi 
w zupełności wystarczy! Nie będę 
wtedy czekał na oryginalny świstek 
z banku, tylko natychmiast wyślę 
gazety, o które Wam chodzi. 

Kolejna sprawa to Wasze sygnały 
o nieotrzymaniu niektórych nume¬ 
rów TA. Jeśli brakuje Wam które¬ 
goś z nich, a otrzymaliście juz ko¬ 
lejne egzemplarze naszej gazety, to 
możecie być pewni, ze wina nie leży 
po naszej stronie, ponieważ wielo¬ 
krotnie sprawdzamy, czy gazety zo¬ 
stały wysłane do wszystkich osób, 
które figurują na naszej liście pre¬ 
numeratorów. Oczywiście może 
okazać się, że zabraknie Wam pie¬ 
niędzy na kolejny numer TA, ale 
i wtedy na pewno coś do Was wysy¬ 
łamy. Ttym czymś Jest albo gazeta 
(kiedy Wasz deficyt finansowy Jest 
niewielki), albo kartka pocztowa 


z Informacją o stanie Waszych fi¬ 
nansów W żadnym wypadku nie 
zrywamy kontaktu z prenumerato¬ 
rami bez jakiejkolwiek informacji 
dla nich. Przy okazji przypominam 
ze aktualny stan Waszego konta 
u nas Jest podawany po prawej 
stronie kartki z adresem, nalepio¬ 
nej na kopertę, w której przychodzi 
do Was gazeta. Łatwo zorientować 
się, kiedy należy dopłacić pienią¬ 
dze. 

Zdarza się, ze na karteczce z ad 
resem widnieje nieprawidłowo albo 
niewyraźnie napisane imię lub na¬ 
zwisko. Sami wiecie, ze Język pol¬ 
ski jest bardzo trudny i zawiły, a pi¬ 
sownia nazwisk nie podlega żad¬ 
nym regułom, więc nie zawsze uda¬ 
je ml się prawidłowo odcyfrować 
7 przekazu dane personalne, kiedy 
są one napisane, rzekłbym, lekar¬ 
skim pismem Bardzo proszę o czy¬ 
telne wypełnianie blankietów 
i ewentualne sprostowania infor¬ 
macji, źle wprowadzonych do na 
szej bazy danych. Nie zapomnijcie 
też o podaniu dokładnego adresu, 
z kodem pocztowym, a zwłaszcza 
z nazwą miejscowości, bo np. ulica 
Paderewskiego jest prawie w każ¬ 
dym mieście, ale przecież z tego nic 
nie wynika! Nie mogę nic wysłać, 
dopóki nie mam prawidłowego ad¬ 
resu odbiorcy! 

Na koniec jeszcze dwie drobne 
uwagi. Nie wiem, czy zdajecie sobie 
sprawę z tego, że dyskietki i kasety 
z listingami tez można zaprenume¬ 
rować? Wystarczy tylko zaznaczyć 
ten fakt na odwrocie blankietu (lub 
w liście. Jeśli przesyłacie do nas 
kserokopię dowodu wpłaty), a ra¬ 
zem z gazetą otrzymacie nośnik, na 
którym nagrane są wszystkie pro¬ 
gramy zawarte w danym numerze 
TA. Druga sprawa dotyczy nabywa¬ 
nia starych numerów naszego cza¬ 
sopisma. Najlepiej zrobić to, przele¬ 
wając pieniądze tą samą metodą,’ 
co w przypadku prenumeraty. Nie 
wolno wszakze zapomnieć o szcze¬ 
gółowym określeniu, o które nume¬ 
ry chodzi - bardzo proszę o ich do¬ 
kładne wyliczenie. 

Mam nadzieję, że zechcecie wziąć 
pod uwagę choć niektóre z poczy¬ 
nionych przeze mnie uwag. 

Jarosław Syrylak 
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Celem gry Jest zapełnienie środkowej części pola gry MO¬ 
DRYMI klockami. Dokonać tego można tylko strzelaniem do 
CZERWONYCH klocków, które, po trafieniu, zamieniają się na 
MODRE. Natomiast unikać trzeba trafienia pozostałych kloc¬ 
ków! Trafienie klocka MODREGO powoduje Jego zamianę na 
klocek czenyony, ŻÓŁTEGO - powoduje zniknięcie dolnego 
rzędu w zapełnianym obszarze, zaś PASKOWANEGO - utratę 
Jednego z żyć. Nie zestrzelenie CZERWONEGO klocka, zanim 
klocki "wpadną" do środkowej części, powoduje zniknięcie 
wszystkich ułożonych dotąd klocków w słupku, gdzie znalazł 
się CZERWONY klocek. Zasady gry mogą się zrazu wydać nieco 
skomplikowane, lecz po wczytaniu gry wnet wszystko staje się 
Jasne. Klawisz OPTION pozwala wybrać stopień trudności. Po¬ 
szczególne stopnie różnią się szybkością spadania klocków i li¬ 
czbą punktów otrzymywanych za trafienie czerwonego 


Autor nadesłał grę w wersji BOOT', tak tez Ją prezentujemy. 
Poniższe dane należy połączyć ze Zgrywusem+ z TA 1/92 i po 
uruchomieniu zgrać na kasetę za pomocą opcji 'Format pliko¬ 
wy W żadnym wypadku nie należy stosować formatu zgrywa¬ 
nia 'Boot'! Można tez użyć Mini-Zgrywusa z TA 3/92 Programy 
w postaci "BOOT* są kłopotliwe w użyciu. Nie dają się łatwo 
uruchomić spod DOS-u lub COS-u, gdyż przeważnie ładują się 
w ten sam obszar, co DOS Na domiar złego, aby Je przerwać, 
trzeba zwykle wyłączyć komputer Do uruchomienia tę) gry po¬ 
siadacze stacji dysków powinni użyć systemu DOS, który po¬ 
zwala na uruchamianie "boot"-ów lub specjalnego programu, ta¬ 
kiego Jak BFL, przedstawiony na str 43 


IJ 1000 REM *-’ 

UR 1002 REM : "The Moving Cubes" 

SI 1004 REM : Petr Chamot 

YY 1006 REM : (c) 1992 Tajemnice ATARI 

JP 1008 REM *- 

MU 1010 DATA 0016 fa3f004020bc4a20be4320 


RR 

1020 

DATA 

4649a9198da649a9508df402a9 

VD 

1030 

DATA 

288dc402a9ca8dc502a9948dc6 

US 

1040 

DATA 

02a9468dc702a9008dc802a940 

VD 

1050 

DATA 

8d3102a9428d300220124420e9 

UH 

1060 

DATA 

472002484c7944707070446240 

VI 

1070 

DATA 

04040404040404040404040404 

CD 

1080 

DATA 

04040404040404700670014240 

YG 

1090 

DATA 

00000037373737373737373737 

NC 

1100 

DATA 

37373737373737373737373737 

MM 

1110 

DATA 

37373737373737373737370000 

DV 

1120 

DATA 

000000003 73737373737000000 

YY 

1130 

DATA 

0000(9000000000000000000000 

MB 

1140 

DATA 

00000000000037373737373700 

IU 

1150 

DATA 

00000000003737373737370000 

ZB 

1160 

DATA 

00000000000000000000000000 

SG 

1170 

DATA 

00000000000000373737373737 

NT 

1180 

DATA 

00000000000037 373737373700 

ZQ 

1190 

DATA 

00000000000000000000000000 

HQ 

1200 

DATA 

00000000000000003 737373737 

WD 

1210 

DATA 

3 70000000000003 73737373737 

YX 

1220 

DATA 

00000000000000000000000000 

XI 

1230 

DATA 

0000000000000000003 7373737 

RH 

1240 

DATA 

37370000000000003 737373737 

DT 

1250 

DATA 

37000000000000000000000000 

MG 

1260 

DATA 

000000000000000000003 73737 

NP 

1270 

DATA 

3737 370000000000003 7373737 

JJ 

1280 

DATA 

37370000000000000000000000 

,AX 

1290 

DATA 

000000^0000000000000003 737 

EF 

1300 

DATA 

37373737000000000000454545 

MW 

1310 

DATA 

45373737373737373737373737 

NM 

1320 

DATA 

37373737373737373737373737 

( AN 

1330 

DATA 

374545454 50000000000000000 

MB 

1340 

DATA 

00003 737000000000000000000 

ZI 

1350 

DATA 

00000000000000000000000000 

JF 

1360 

DATA 

37370000000000000000000000 

1 NY 

1370 

DATA 

00000037370000000000000000 

1 ZR 

1380 

DATA 

00000000000000000000000000 

(LC 

1390 

DATA 

00373700000000000000000000 

OT 

1400 

DATA 

0000000037 3700000000000000 

YY 

1410 

DATA 

00000000000000000000000000 

LX 

1420 

DATA 

00003 737000000000000000000 

QQ 

1430 

DATA 

00000000003 737000000000000 

ZB 

1440 

DATA 

00000000000000000000000000 

NU 

1450 

DATA 

00000037370000000000000000 

SN 

1460 

DATA 

0000000000003 7 370000000000 

ZQ 

1470 

DATA 

00000000000000000000000000 

PR 

1480 

DATA 

000000003 73700000000000000 

UK 

1490 

DATA 

000000000000003 73700000000 

YX 

1500 

DATA 

00000000000000000000000000 

QM 

1510 

DATA 

00000000003 737000000000000 

VF 

1520 

DATA 

00000000000000003737000000 

ZG 

1530 

DATA 

00000000000000000000000000 

SJ 

1540 

DATA 

0000000000003 7370000000000 

FU 

1550 

DATA 

00000000004545454537373737 

OC 

1560 

DATA 

37373737373737373737373737 

IZ 

1570 

DATA 

37373737373737373745454545 

OX 

1580 

DATA 

0000000000003 7373737000000 

ZY 

1590 

DATA 

00000000000000000000000000 

LW 

1600 

DATA 

000000000000000000003 73737 

VT 

1610 

DATA 

370000000000003 73737 31mm 

ZF 

1620 

DATA 

00000000000000000000000000 

AA 

1630 

DATA 

00000000000000000000003737 

EL 

1640 

DATA 

37370000000000003 737 37 3700 

ZO 

1650 

DATA 

00000000000000000000000000 

NK 

1660 

DATA 

00000000000000000000000037 

NX 

1670 

DATA 

37373700000000000037373737 

ZX 

1680 

DATA 

00000000000000000000000000 

AA 

1690 

DATA 

00000000000000000000000000 

IO 

1700 

DATA 

37373737000000000000373737 

NR 

1710 

DATA 

37373737373737373737373737 

NU 

1720 

DATA 

37373737373737373737373737 

DP 

1730 

DATA 

373737373 70000000000000000 
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taje 


JM 


tm 


FN 

1740 

DATA 

0000d0d0d0d0d0d00000000000 



YC 

2460 

DATA 

05bd0a6048290f1869d099bl43 

CD 

1750 

DATA 

d500a90085c685c8a9e085c7a9 



IH 

2470 

DATA 

684a4a4a4a881869d099bl4388 

MJ 

1760 

DATA 

5085c9a203a000blc691c8c8d0 



TO 

2480 

DATA 

e8e003d0e260ad5b448d8247a9 

OQ 

1770 

DATA 

f9e6c7e6c9cal0f2a227bdea43 



JT 

2490 

DATA 

00a2009dff63e8d0faa5c61869 

YX 

1780 

DATA 

9d0852cal0f7602d2d2d2d2d2d 



BQ 

2500 

DATA 

0385c88d04d0a9b58d5b44a900 

PP 

1790 

DATA 

2d003£3£3f3f3£3£3f002a2a2a 



QS 

2510 

DATA 

8d006060a200a000a9f08d0960 

FM 

1800 

DATA 

2a2a2a2a001515151515151500 



TG 

2520 

DATA 

C8d0fde8d0faee0960ad0960d0 

QJ 

1810 

DATA 

00ff££c3c3fff£00a900aa9d00 



XQ 

2530 

DATA 

f2a208bde0479daf43cal0f7a2 

FD 

1820 

DATA 

639d0064e8d0f7a9608d07d4a9 



PW 

2540 

DATA 

00a000a9f08d0960c8d0fde8d0 

ZO 

1830 

DATA 

0c8dc002a9028d08d0a9038dld 



GL 

2550 

DATA 

faee0960ad0960d0£220e748a9 

TZ 

1840 

DATA 

d0a9028d0cd0a9798d00d085c6 



ZQ 

2560 

DATA 

008dldd04c0640e7elede500ef 

TO 

1850 

DATA 

a93e8d2f02a97c8d04d085c8a2 



FJ 

2570 

DATA 

f6e5£2a900a2029d0a60cal0fa 

IF 

1860 

DATA 

05bd65449db964cal0f7a20dbd 



PX 

2580 

DATA 

20544760a2f0a000c8d0fde8d0 

TQ 

1870 

DATA 

6b449db563cal0f7a900854d60 



IY 

2590 

DATA 

fa60a215a9009d93409dbb409d 

OZ 

1880 

DATA 

0808lclc363600000000000101 



RC 

2600 

DATA 

e3409d0b419d33419d5b419dab 

EG 

1890 

DATA 

01010000000000a9008d0060a9 



PZ 

2610 

DATA 

419dd3419dfb419d23429d4b42 

PG 

1900 

DATA 

9a8d0160a9008d0360a9648d02 



EP 

2620 

DATA 

9d73429d9b42cal0d6a9d58dbc 

DB 

1910 

DATA 

d2a9ea8d03d2a215ad0ad22903 



YK 

2630 

DATA 

43a9b58d5b4420554460a215bd 

RA 

1920 

DATA 

1869419d9340cal0f2201449ad 



AG 

2640 

DATA 

ab41c942d034bdd341c942d02d 

DD 

1930 

DATA 

7802290fc90ff033c907d00fa5 



EJ 

2650 

DATA 

C942d029bdfb41c942d022bd23 

BI 

1940 

DATA 

C6c9adf029e6c6a5c68d00d0d0 



GO 

2660 

DATA 

42c942d01bbd4b42c942d014bd 

RN 

1950 

DATA 

Ilc90bd0lca5c6c94af016c6c6 



SF 

2670 

DATA 

7342c942d00dbd9b42c942d006 

OS 

1960 

DATA 

a5c68d00d0ad0060d019a5c618 



DL 

2680 

DATA 

cal0c8207c4860a215a9008d02 

ZZ 

1970 

DATA 

690385c88d04d0ad0060d00aad 



SB 

2690 

DATA 

d28d03d29dab419dd3419dfb41 

DN 

1980 

DATA 

8402d051a90l8d0060a90685c9 



LT 

2700 

DATA 

9d23429d4b429d73429d9b42ca 

LQ 

1990 

DATA 

ad0060f043ce5b44ad5b44c90a 



JZ 

2710 

DATA 

10e8f8ad0b601869108d0b60ad 

OD 

2000 

DATA 

b02cad5b448d0e45a900a20d9d 



AU 

2720 

DATA 

0c6069008d0c60d8205447a900 

Qx 

2010 

DATA 

ff63cal0faa5c618690385c88d 



YP 

2730 

DATA 

8df84720f74720f74720f74720 

VL 

2020 

DATA 

04d0a9b58d5b44a9008d00608d 



US 

2740 

DATA 

f74720a249a206bdae4a9dbl43 

MM 

2030 

DATA 

00d28d01d2f00d20f£48205544 



NR 

2750 

DATA 

cal0f720f74720f74720f74720 

RX 

2040 

DATA 

205546c6c910b8ce0160f00620 



LS 

2760 

DATA 

f74720f747a9f08d£847a210a9 

SY 

2050 

DATA 

f7474ca54420f747a99a8d0160 



HR 

2770 

DATA 

009daa43cal0fa203947adbc43 

ZF 

2060 

DATA 

ee0360ad0360c906d0034cb245 



RA 

2780 

DATA 

C9d5f003eebc4360a9e68d0ld2 

JX 

2070 

DATA 

a9648d02d2a9ea8d03d2ad0360 



MP 

2790 

DATA 

ad5b44c90ad005a9008d01d28d 

DD 

2080 

DATA 

0aaacacabda6458d8e458d9b45 



GW 

2800 

DATA 

00d2 60a2 f 5 a000c8d0fde8d0f a 

FE 

2090 

DATA 

bda7458d8f458d9c45bda8458d 



XA 

2810 

DATA 

8e02d28e03d260a9908d04d2a9 

CT 

2100 

DATA 

9145bda9458d9245a215bd£££f 



SS 

2820 

DATA 

0a8d05d2a2£5a000c8d0£de8d0 

JQ 

2110 

DATA 

9df££fcal0f7a215a9009d£fff 



PX 

2830 

DATA 

£a8e04d28e05d28e00d28e01d2 

UN 

2120 

DATA 

cal0£a2014494ca5449340bb40 



UO 

2840 

DATA 

60a9228d2£02a9498d3102a9f6 

FR 

2130 

DATA 

e3400b4133415b41a9648d02d2 



YL 

2850 

DATA 

8d3002a9008d08d28dc6028dc8 

SH 

2140 

DATA 

a9ea8d03d2a215bd5b4lf07ec9 



NX 

2860 

DATA 

02a90e8dc5028dc402a903a903 

TJ 

2150 

DATA 

41£07ac943£076c942d05bbd9b 



DM 

2870 

DATA 

8d0fd2a9e08d£402a9158da649 

SS 

2160 

DATA 

42d008a9429d9b424c4146bd73 



CS 

2880 

DATA 

a9108db44aa9058d3f47a97a8d 

IS 

2170 

DATA 

42d008a9429d73424c4146bd4b 



JF 

2890 

DATA 

4b458d7f44a9l08da448adlfd0 

HU 

2180 

DATA 

42d008a9429d4b424c4146bd23 



LH 

2900 

DATA 

C903d00320a249adlfd0c906d0 

TV 

2190 

DATA 

42d008a9429d23424c4146bdfb 



GG 

2910 

DATA 

e£60adb44ac915d005a90f8db4 

NA 

2200 

DATA 

41d008a9429dfb414c4146bdd3 



VA 

2920 

DATA 

4 aeeb4 4aadb4 4 a3 8e910aabdd8 

DA 

2210 

DATA 

4Id008a9429dd3414c4146bdab 



JG 

2930 

DATA 

498d3f47bde2498d7f448d4b45 

KB 

2220 

DATA 

41d0lfa9429dab414c4146a900 



CF 

2940 

DATA 

bdec498da448a200a000c8d0£d 

EN 

2230 

DATA 

9dab419dd3419dfb419d23429d 



LE 

2950 

DATA 

e8d0fa60051015202530354045 

KJ 

2240 

DATA 

4b429d73429d9b42a9009d5b41 



FL 

2960 

DATA 

507a6a5a55504a403a3530l020 

DD 

2250 

DATA 

ca30034cbe45203e482014494c 



ZB 

2970 

DATA 

304050607080909a7070707070 

FY 

2260 

DATA 

7e4 4 ad00d0d00160ad5b4 4c 9 5 5 



LV 

2980 

DATA 

70471a4a7070422e4a70704258 

WC 

2270 

DATA 

9006a9018dled060ad03601869 



MI 

2990 

DATA 

4a7042804a707046a84a707070 

GW 

2280 

DATA 

0l8d0560a9018dled0a5c838e9 



UO 

3000 

DATA 

707001f6490000342825002d2f 

KV 

2290 

DATA 

53a000a2014acal0fc8d0660ad 



AD 

3010 

DATA 

36292e27002335222533000000 

PI. 

2300 

DATA 

05600aaacacabda6458da3468d 



YV 

3020 

DATA 

00000000000000000000000000 

EM 

2310 

DATA 

0747bda7458da4468d0847ae06 



SC 

3030 

DATA 

62790030657472002368616d6f 

SH 

2320 

DATA 

60 bdffffc941d024adbc43c9d0 



DW 

3040 

DATA 

74000000000000000000000000 

AB 

2330 

DATA 

d00ea9002003 4 7207747202549 



DF 

3050 

DATA 

00000000000000000000000030 

BO 

2340 

DATA 

4c9c47cebc43207747a9002003 



OS 

3060 

DATA 

3225333300b3b4alb2b400342f 

DH 

2350 

DATA 

4720254960c942d00ca9442003 



OS 

3070 

DATA 

002 225272 9 2e00000000000000 

SA 

2360 

DATA 

4720774720254960c943d00£20 



AE 

3080 

DATA 

000000000000000000303 22533 

EJ 

2370 

DATA 

0a47a900200347207747202549 



SG 

3090 

DATA 

3300afb0b4a9afae00342f0023 

QH 

2380 

DATA 

60c944d00e203947a942200347 



GM 

3100 

DATA 

28212e2725002c2536252c0000 

RY 

2390 

DATA 

20774720254960ae06609dffff 



HJ 

3110 

DATA 

000000000000000000002c2 53 6 

MM 

2400 

DATA 

60a215bd73429d9b42bd4b429d 



XU 

3120 

DATA 

2 5 2 C001000000000000000a9 3 c 

GA 

2410 

DATA 

7342bd23429d4b42bdfb419d23 



MW 

3130 

DATA 

8d02d3a90085028d4402a94085 

QR 

2420 

DATA 

42bdd3419dfb41bdab419dd341 



RC 

3140 

DATA 

03a902850960 

TL 

2430 

DATA 

a9009dab41cal0d460f8ad0a60 







RS 

2440 

DATA 

1869018d0a60ad0b6069008d0b 







RM 

2450 

DATA 

60ad0c6069008d0c60d8a200a0 
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REMOVER 

Procedura ta dokonuje przeprowadzki danych zapi¬ 
sanych szesnastkowo w wierszach DATA do pamięci. 
Dane są poszukiwane w wierszach występujących za 
wierszem wywołującym procedurę. REMOVER nie 
sprawdza poprawności danych (od tego jest Generator 
Kodów lub ... DATAwnlk), a jedynie pierwszą Instru¬ 
kcję w wierszu: toleruje DATA 1 REM Po napotkaniu 
wiersza z Inną Instrukcją wykonywany jest skok do te¬ 
go wiersza ("przeskok" nad blokiem wierszy DATA) lub 
do trybu bezpośredniego. Ilość danych w pojedynczym 
wierszu DATA jest obojętna. 

Zapisywany jest obszar ciągły. Jeżeli zachodzi po¬ 
trzeba zmiany adresu, to przed kolejnym blokiem DA¬ 
TA należy ponownie umieścić wiersz wywołujący RE- 
MOVER 1 zawierający nowy adres początkowy. Widać 
tu podobieństwo do poczynań DOS-u przy wczytywa 
nlu pliku binarnego złożonego z wielu segmentów - 
każdy z nich może być umieszczony w Innym miejscu 
pamięci, 

UWAGA! Ewentualne dalsze Instrukcje umieszczone 
w wierszu wywołującym REMOVER nie zostaną wyko 
nane. 

GP 1 ? CHR$(125):POKE 766,l:POKE 84,4:? ” 

1 RM=ADR(”;CHR$(34);:FOR 1=1 TO 76:REA 
DA:? CHR$(A);:NEXT Is? CHR$(34);")- 
ER 2 ? "2 A=1536:A=USR(RM,A)":? 3:? 4:? 5 
:? "POKE 766,0:POKE 842,12:? CHR$(125) 
:END":POKE 766,l:POKE 84,0 
XC 3 POKE 842,13:STOP :DATA 104,104,133,2 
04,104,133,203,162,0,165,159,32,208,16 
9,32,25,184,200,177,138,240,243,201 
UW 4 DATA 1,240,7,104,104,104,104,76,148, 
169,200,200,196,159,176,226,136,177,13 
8,10,10,10,10,176,2,105,144,129,203 
GC 5 DATA 200,177,138,201,64,41,15,144,3, 
24,105,9,97,203,129,203,230,203,208,21 
7,230,204,208,213 


Powyższy program generuje procedurę REMOVER 
w postaci pojedynczego wiersza programu w BASIC-u, 
który można dołączać do wszelkich swoich progra¬ 
mów Drugi wiersz, który zostanie przy tej okazji wyge¬ 
nerowany, zawiera przykład użycia REMOVER-a. Nale¬ 
ży je zachować przy pomocy Instrukcji LIST "C:” lub 
LIST" D-.nazwa ". 



Następne dwa programy wjymagają właśnie dołącze¬ 
nia zapisanego w ten sposób REMOVER-a Spowoduje 
on umieszczenie danego programu na szóstej stronie 


DATAwnlk 

Jest to specjalizowana odmiana procedury SYNTAX 
- głównej procedury interpretera BASIC-a. Jej samej 
nie można było wykorzystać ze względu na skoki JMP 
do jej początku. Wypada się przyznać, że fragmenty 
SYNTAX musiałem powielić w swojej procedurze. 

MW 1000 REM *-* 

: DATAwnik SEC9207 jarek : 

WW 1005 REM :(c) 1992 Tajemnice ATARI: 

* _ * 

DJ 1010 DATA 68C904F0034C00A06885CC6885 
FY 1020 DATA CB6885CE6885CD686885CFA900 
PX 1030 DATA 859468A86820B0A1B18030DFA5 
SM 1040 DATA CBD004C5CCF0D7A90DC5CB9006 
AE 1050 DATA A6CCD002A5CB0A690620C4A220 
WS 1060 DATA C4A2A90120C4A2A200A1CDA829 
BV 1070 DATA 0FAA984A4A4A4A20CB0620C4A2 
WI 1080 DATA 8A20CB0620C4A2E6CDD002E6CE 
UV 1090 DATA C6CBE6CBD006A5CCF00EC6CCC6 
FB 1100 DATA CBA002B180A888C494D0C8A99B 
VI 1110 DATA 20C4A220A2A9B00E208EB5A59F 
RM 1120 DATA A820D0A9A28A20F8A820F2A9F0 
LD 1130 DATA 8F20A2A9A494A28A207AA8A597 
RS 1140 DATA 858AA598858BA49488B180918A 
JQ 1150 DATA 98D0F88594B1801865CFAAC8B1 
MQ 1160 DATA 806900A88A4C1F06C90A093090 
LY 1170 DATA 02690660 
HD 2000 ? CHR$(125):NEW 
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Po cóż? Program pomaga pragnącym zapisać ciąg 
bajtów obecnych gdzieś w pamięci komputera w wler- 






























tal 




szach DATA w formie akceptowanej np. przez Zgrywu- 

sa. 

Chwilkę po RUN program, umieszczony na 6. stro¬ 
nie, Jest gotowy do wykonywania poleceń w trybie bez¬ 
pośrednim Format: 

Q = USR( 1536 , tle, skąd, krok, pocz) 

gdzie Ile - liczba bajtów ciągu do zapisania w liniach 
DATA, skąd - adres początkowy tego ciągu, krok - 
krok numeracji wierszy DATA, pocz - numer pierwsze¬ 
go wiersza. 

Przykład: 

Q = USR(1536,212,1536,10,1010) 


DATAwnlk zapisze samego siebie w liniach DATA od 
numeru 1010 co 10. 



Program BASIC-owy obecny ewentualnie w pamięci. 
Jest chroniony w ten sposób, że DATAwnlk wyświetla 
na ekranie dotychczasowe wiersze. Jeżeli są one kaso¬ 
wane przez powstające właśnie linie DATA. Działanie 
programu może być w każdej chwili przerwane, a ska¬ 
sowane linijki - odzyskane poprzez ponowne ich wpro 
wadzenie z ekranu. 

REM OUT 

Pod wszystko mówiącą nazwą kryją się dwie proce¬ 
dury- kasownika i odREMlacza ekonomicznie połączo¬ 
ne w jeden program. 

Po cóż? Kasownik - owszem, ale odremiacz? Postu¬ 
lat zrozumiałości programów łatwo spełnić nie oszczę¬ 
dzając na instrukcji REM. Kiedy Jednak dochodzimy 
do FRE(0)=37 lub chcemy stworzyć wersję eksporto¬ 
wą (krótką) swego dzieła, to co? Zaczynamy żałować, 
że pisaliśmy komentarze? To przecież bez sensu! Ból 
przy ręcznym odremianiu długiego programu również 
zapamiętałem 1 stąd ten program. 


Podobnie jak DATAwnlk, program REM_OUT Jest 
przeznaczony do pracy w trybie bezpośrednim. Podo¬ 
bnie humanitarnie też działa. Jeżeli popełniliśmy omył¬ 
kę, podając zły obszar od-do (usuwane wiersze poja- 
wiają się na ekranie), należy nacisnąć BREAK (CON- 
TROL/1 pauzuje proces). Można odzyskać wyświetlone 
linie poprzez "najechanie" na każdą z nich kursorem 
i naciśnięcie RETURN. O piątej nad ranem to się zda¬ 
rza. 

JE 1000 REM *-* 

: REM_OUT SEC9207 jarek : 

WW 1005 REM :(c) 1992 Tajemnice ATARI: 

* _ * 

MG 1010 DATA 6 8C903D04 88DFE02 6 885A16885 
XO 1020 DATA A06885AE6885AD68684820A2A9 
MJ 1030 DATA 20F2A9F02820E1A93023C5AE90 
MQ 1040 DATA 0BD01D88B18AC5AD9002D01468 
VA 1050 DATA F01A4 8208EB5A5 9FA820D0A9A2 
CX 1060 DATA 8A20F8A8F0D3 6 8A9008DFE024C 
LY 1070 DATA 00A0482019B8C8B18AF0DE88C8 
WV 1080 DATA BI8AF01188B18A85A7A8C49F90 
MT 1090 DATA F1A59F20D0A9D0AA889848208E 
VY 1100 DATA B5 6 8A002 918A85 94A888A91691 
MJ 1110 DATA 8AA5 9420D0A9A5 9 F3 8E5 94B0AD 


Jeżeli odremianie, to tylko odremianle - w wierszu, 
gdzie REM nie Jest Jedyną instrukcją, skasowana zo¬ 
stanie iylko odpowiednia część wiersza. 



Chwilkę po RUN program Jest gotowy do użycia. For¬ 
mat: 

Q = USR(1536,od,do, co) 

gdzie od Ido podajemy analogicznie Jak w instrukcji 
LIST, zaś co określa tryb pracy: 0 - odremiacz, 1 - ka 
sownlk. 

Program instaluje się na 6. stronie. Część w BASIC-u 
nie będzie Już dłużej potrzebna - można na niej wypró¬ 
bować działanie programu. 

Jarosław Krysztoplk 


7 














i 


Napisali do nas panowie Tadeusz Okoń i Marek 
Stolarski, właściciele firmy TOMS: 

W nawiązaniu do zamieszczonego w numerze 2/92 "Taje¬ 
mnic AT ART testu naszej stacji dysków TOMS 720. pozwa¬ 
lamy sobie przekazać kilka uwag natury ogólnej oraz 
bardziej szczegółowych, dotyczących zasygnalizowanych 
niedoskonałości ocenianego sprzętu 

Najistotniejsza uwaga dotyczy niewyeksponowanla na 
pozór drobnego faktu, iz firma TOMS Jest Jedynym w tej 
części Europy (jeśli nie w całej) producentem najbardziej 
technicznie i użytkowo zaawansowanej stacji dysków do 
małego ATARI 

Odnośnie stwierdzenia, ze "mechanizm stacji nie powstał 
w firmie TOMS', chcielibyśmy słusznie dodać, ze w naszej 
firmie nie powstała również blacha, z której wykonana Jest 
obudowa stacji, lakier do malowania obudowy i wiele, wie¬ 
le innych podzespołów 

Naszą zasługą było tylko opracowanie koncepcji stacji, 
schematu ideowego, wykonanie projektu obudowy, płytek 
drukowanych, a także wykonanie oprogramowania stacji 
i Złożenie wszystkiego "do kupy' 

l to byłoby na tyle. Jeśli chodzi o sprawy ambicjonalne 

Teraz kilka uwag szczegółowych. 

Zasygnalizowana przez Was wada nieznośnie długiego 
oczekiwania na rozpoznanie gęstości dyskietki, nie Jest 
w praktyce uciążliwa dla użytkownika, albowiem proce¬ 
dura sprawdzania gęstości dyskietki (wiele formatów o gę 
stościach od 90kB do 720 KB) trwa poniżej 0,5 sekundy, co 
dla zdecydowanej większości użytkowników Jest czasem 
pomljalnle małym 

Nasze wyjaśnienie, ze program w stacji nie Jest przewi¬ 
dziany do tak szybkiego naciskania klawiszy ', ma sens 
w tym znaczeniu, iz nie przewidywaliśmy ćwiczenia refle¬ 
ksu polegającego na Jak najszybszym naprzemiennym 
l z wykorzystaniem obu rąk, zamykaniu dźwigni stacji oraz 
naciskaniu jakiegoś klawisza w komputerze Słusznie chy¬ 
ba założyliśmy, ze od chwili zamknięcia dźwigni stacji do 
naciśnięcia odpowiedniego klawisza w komputerze upłynie 
od 1 do 2 sekund, co z wystarczającą rezerwą czasu po¬ 
zwala na rozpoznanie gęstości dyskietki przez stację i Jed¬ 
nocześnie nie powoduje jej zawieszania się 

Problem częstego, samoczynnego wyłączania się 'buforo¬ 
wania’ przy odczycie. Jest związany z Jakością stosowa¬ 
nych dyskietek oraz Jakością dokonanego na nich zapisu 

Używanie dyskietek bezflrmowych lub mocno Zużytych 
będzie związane z częstym (proporcjonalnie do Jakości dys¬ 
kietek) występowaniem zjawiska wyłączania się trybu bu¬ 
forowania W przypadku stosowania dobrych Jakościowo 
dyskietek (zgodnie z zaleceniami zawartymi w instrukcji 
obsługi stacji), omawiany problem będzie występować bar¬ 
dzo rzadko 

. 

Życzymy Redakcji dalszego podnoszenia poziomu swoje¬ 
go sympatycznego czasopisma, zwłaszcza od strony mery 
torycznej 


Bardzo przepraszam Nie napisałem ze TOMS Jest Jedynym 
w tych okolicach producentem tego typu stacji gdyż nie zda¬ 
wałem sobie z tego sprawy Sądziłem, ze Istnieje Jakaś zdrowa 
konkurencja, mobilizująca do podnoszenia Jakości wyrobów 
! Teraz rozumiem, dlaczego llrma woli namawiać klientów by 
cierpliwie znosili usterki zamiast Je usunąć Stwierdzenie, ze 
"mechanizm stacji nie powstał w firmie TOMS", które tak po¬ 
ruszyło autorów listu było bez wątpienia Jedną z najwię¬ 
kszych pochwał pod adresem stacji Przecież gdyby Jakość 
napędu była taka Jak zawartego w niej oprogramowania, to 
nie nadawałby się do niczego 1 Nie pisałem nic na temat po¬ 
chodzenia blachy 1 lakieru, ponieważ w chwili pisania nie 
dysponowałem takimi Informacjami Artykuł nie miał stano¬ 
wić listy pochwał pod adresem napędu (wystarczającą Ich 
liczbę znajdzie nabywca w Instrukcji dołączonej do wyrobu), 
lecz próbę spojrzenia na urządzenie oczami nleuprzedzonego 
użytkownika programisty 

Testy przeprowadzone ze stoperem wykazały ze czas ocze¬ 
kiwania na rozpoznanie gęstości Jest większy od 1 sekundy 
Być może otrzymaliśmy od firmy TOMS Jakiś specjalny egzem¬ 
plarz Redakcyjna stacja Jest używana przez wiele osób 
1 WSZYSTKIE miały takie same kłopoty z ' refleksem' Czyzby 
więc należały one do jakiejś niezwykłej elity? Proponuję za¬ 
tem, by napisali do redakcji użytkownicy TOMS-a 720 którzy 
rzeczywiście uważają ten czas za pomljalnle mały (szybkoble 
gacz przemierza wtedy ponad 10 metrów) Proszę zauważyć, 
ze brak Jest w Uście wyjaśnienia, DLACZEGO stacja musi się 
zawieszać w przypadku odebrania od komputera prawidło¬ 
wego rozkazu Osobiście nie miałbym nic przeciwko temu 
gdyby rozpoznanie gęstości trwało nawet 5 sekund byleby 
zawsze kończyło się sukcesem Szczególnie groźne konse¬ 
kwencje może mleć trafienie w końcówkę martwego" okresu 
Przy odczycie zdarza się otrzymać np kompletną (lub czę¬ 
ściową) sieczkę zamiast katalogu Przy zapisie kończy się to 
z reguły uszkodzeniem dyskietki 

Rozpoznanie formatu nie zawsze działa poprawnie Wyłącze¬ 
nie 1 włączenie stacji powoduje, ze za pierwszym razem melduje 
ona format E przy dyskietce S, pomimo ze na wyświetlaczu v/ld 
nlęje symbol S W wyniku tego DOS próbuje odczytać nie Ist¬ 
niejący sektor VTOC, co zawsze kończy się niepowodzeniem 
(z dodatkowymi efektami dźwiękowymi) Przełącznik zezwole¬ 
nia na zapis Jest sterowany elektrycznie, zamiast mechanicznie 
Pomyślany Jako ułatwienie stanowi poważne niebezpieczeń¬ 
stwo' Właśnie niedawno wskutek króciutkiego zaniku napięcia 
w sieci, stacja zniszczyła ml nieodwracalnie ZABEZPIECZONĄ 
dyskietkę z cennymi programami 

Nabywca TOMS-a 720 nie znajdzie w Instrukcji listy rozka¬ 
zów stacji To skutecznie zapobiega powstawaniu nowych 
programów wykorzystujących niezwykłe możliwości napędu 
Użytkownik skazany Jest na oprogramowanie firmowe nie za 
wsze odpowiadające Indywidualnym upodobaniom Znany 
Jest przykład firmy IBM która pobiła bardziej zaawansowa 
nych technologicznie konkurentów właśnie dzięki 'odtajnie¬ 
niu" swych sekretów Programiści na całym śwlecle lubią za 
to PC-ta, który dzięki bogactwu oprogramowania stał się nie¬ 
kwestionowanym standardem Rozumiem ze monopoliście 
nikt nie może dyktować, co ma robić, ale 

Kochani Panowie 1 Uważam podane przeze mnie fakty za 
obiektywne Podtrzymuję swoje zdanie, ze stacja oferuje boga¬ 
te spektrum możliwości (nie zamieniłbym jej na żadną Inną) 
nigdy Jednak nie Jest tak dobrze by nie mogło być lepiej 
Unoszenie się ambicją traktuję Jako rodzaj zajęcia nadobo¬ 
wiązkowego, w miły sposób urozmaicającego zyde męzczyzny 
Nadal Jednak podstawowym naszym obowiązkiem pozostaje 
troska o dobro klienta 

Janusz B. Wiśniewski 


8 

















TOMS poleca dla małego ATARI: 

□ naszą bezkonkurencyjną stację dysków TOMS720 dla ATARI XL/X£: 

• wszystkie stare formaty ATARI oraz formaty dwustronne 360 kB 1720 kB, 

• przenoszenie plików między IBM 1 ATARI ST a małym ATARI 

• wbudowany ROM-dysk z DOS-em 1 programami użytkowymi, 

• wbudowany Interfejs CENTRONICS 1 wiele Innych wspaniałych udogodnień, 

□ usprawnienia stacji dysków - systemy TOMS TURBO i TOMS MULTI - one dopiero tworzą 
z LDW 2000, CA 2001 i ATARI 1050 przyzwoite stacje dysków! 

□ system szybkiego zapisu na kasecie magnetofonowej TURBO 2001 - najbardziej wszech¬ 
stronny system zapisu kasetowego, oferowany w kilku wersjach, pozwalający na kasecie pra¬ 
cować pod dyskowym systemem operacyjnym, 

I~1 dyskowy system operacyjny MyDOS 4.5 wraz z TURBO 2001 w cartrldge’u, 

I I rozszerzenia pamięci komputerów ATARI wszystkich typów — do 128, 192 lub 256 kB, 
w pełni zgodne ze standardem 800XL i 130XE, wraz z odpowiednim oprogramowaniem, 

□ interfejsy CENTRONICS do drukarek, tym różniące się od pochodzących z innych firm, że 
umożliwiają pracę w trzech trybach: z konwersją 9BH na ODH, z konwersją 9BH na 
ODH+OAH i bez konwersji, 

□ dla naprawiających komputery - testowy cartridge, ułatwiający lokalizację wielu uszkodzeń. 

Pełne informacje i zamówienia - w punkcie w centrum Warszawy, przy ul. Widok 14/1, koło 
Rotundy PKO, tel. (0-22) 27-16-01 oraz (0-2) 641-54-29. Zapraszamy w godzinach 9-17. 

Prosimy o telefoniczne uzgadnianie terminów. 


* BAJT* 

ATARI XL/XE, ST 
IBM XT/AT 
AMIGA 500. 2000 
COMMODORE 64/128 
COMMODORE +4, 16, 116 
ZX SPECTRUM 

Katalogi gratis po przesłaniu 
zaadresowanej koperty zwrotnej (A5) 
+ znaczek za 2500 zł, 

SPRZEDAŻ WYSYŁKOWA! 

BAJT 

ul. Chemików 3/55 
05-100 NOWY DWÓR MAZ, 


Nowe oryginalne polskie 
programy 

KOSLOGIKA - sterowanie 
ruchem sputników 

w przestrzeni kosmiczne). 
CZAROWNICA - zestaw 
pięciu krzyżówek z hasłem 
Możliwość układania 

własnych wersji. 

Instrukcja + (kaseta / dysk) 
35 000 zł za zaliczeniem 
pocztowym, 

STUDIO KOMPUTEROWE 
"AKON" 

ul. Jeziorna 9/16 
76-214 Smołdzino 



ogłaszają 


COMIESIĘCZNE LOSOWANIE 
NAGRÓD PREMIOWYCH 

dla zamawiających gry i programy 
w L.K."Avalon". 

W każdym numerze TA będzie 
zamieszczany kupon, który 
upoważnia do wzięcia udziału 
w losowaniu. 

Co miesiąc 100 szczęśliwców , 

którzy przyślą oryginalny kupon 



Zamawiam nagrane na 


kasecie 

dysku 


wraz z zamówieniem 
(spis programów na ostatniej stronie), 
otrzyma jedną z zamawianych pozycji 

za darmo. 



programy zamieszczone 
w_numerze TA 


Pozostałe zamówienia będą 
realizowane w normalnym trybie. 
Termin nadsyłania zamówień 
z kuponami z numeru 6-7 TA 
mija 15 września. 


mój adres: 
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PrenumeraTA 


Liczba egzemplarzy 
każdego numeru 

cena 1 
egzemplarza 

3-mles. 

6-mles 

n= 1 

8 900 

26 700 

53 400 

n=2 

8 300 

49 800 

99 600 

n=3 

8 000 

72 000 

144 000 

n=4 

7 650 

91 800 

183 600 

n=5 do 9 

7 300 

21 900*n 

43 800*n 

n= 10 lub więcej 

6 750 

20 250*n 

40 500*n 


W celu zamówienia prenumeraty należy wypełnić czytel¬ 
nie blankiet wpłaty na konto (dostępny na pocztach 
1 w bankach) podając na odwrocie Imię, nazwisko 1 adres 
zamawiającego oraz liczbę egzemplarzy danego numeru 
wraz z okresem prenumeraty. Pieniądze prosimy wpłacać 
na konto; 

"Tajemnice Atari” s.c. Rzeszów, ul. Targowa 1/801 
Bank Przemysłowo-Handlowy ni Oddział Rzeszów 
nr 326807-23650-136 


RIDAKęjjl NIE PONOSI ODPOWIEDZIALNOŚCI 
ZA TRESC ZAMIESZCZANYCH OGŁOSZEŃ, 


USŁUGI KOMPUTEROWE 

Naprawy sprzętu 

• stacje dysków • komputery • Joysticki 

• magnetofony • monitory 

Modernizacje 

• rozszerzenia pamięci 

• TURBO do stacji dysków 1 magnetofonów 

Oprogramowanie 

Rzeszów, ul. Poznańska 2a tek 429-19 w. 6 

Ceny ogłoszeń ramkowych w TA: 

• 1 cm 2 12 000 

• Cała strona 6 min. + 100% za kolor 

• Ostatnia strona (kolor) 15 min. 

Ogłoszenia drobne: 

• każde słowo 5 000 


ATARI, COMMODORE 

Naprawa komputerów, monitorów, peryferii, ttp. 

Montaż Turbo Rom do magnetofonów ATARI (Misja, Fred w 1 minucie) 
Dystrybucja gier firm AVALON, ASF1 Innych ,ta*rtld .. 

Sprzedaż komputerów 1 oprogramowania 

KRYŚ AL & PLUS Kraków. uL Mochnackiego 67 

oraz ul. Bieżanowska 1 (róg Wielickiej) 


Punkty pr 

Bochnia, ul Florls 12 

Rzeszów, ul. Rejtana 33, sklep "BAJT 1 (^^ DH "SEZAM") 
tel. 548-82 wieczorem 

Nowy Sącz, ul. Szwedzka 1, (Księgarnia 'Eureka" w podwórzu) 
Jasło, Rynek 14, AUDIO-YIDEO "KARPATY" 


Redakcja Tajemnic ATARI Infor¬ 
muje. że posiada Jeszcze dużą licz¬ 
bę egzemplarzy archiwalnych cza¬ 
sopisma. Można Je nabywać wysył¬ 
kowo wpłacając pieniądze podo¬ 
bnie, Jak przy prenumeracie (prze¬ 
kazem bankowym na konto podane 
wyżej). Oto wykaz posiadanych 
przez nas numerów wraz z cenami: 


TA 5/91 

Cena: 6 900 zł 

TA 6/91 

Cena: 6 900 zł 

TA 7/91 

Cena: 6 900 zł 

TA 8/91 

Cena: 8 900 zł 

TA 1/92 

Cena: 8 900 zł 

TA 3/92 

Cena: 8 900 zł 

TA 4/92 

Cena: 8 900 zł 

TA 5/92 

Cena: 8 900 zł 


Egzaminy na kartę (45000,-) 
lub prawo jazdy (58000,-) 

+ tłumacz z/na angielski 
(68000,-) na kasecie. 

Skr. p. 13, 08—400 Garwolin 


TURBO 2000 

do samodzielnego montażu 

• przyspiesza ponad 8-krotnle transmisję 
danych z magnetofonem (czyli max czas 
wgrywania programów to ok 2-3 min.) 

• oszczędza kasety (ok. 50 programów 
na C-60) 

• łatwy montaż, prosta obsługa 

Ponadto: 

Duży wybór oprogramowania w TURBO 
2000; gry, dema, użytki; gotowe zestawy; 
oprogramowanie licencjonowane; cartrldge; 
urządzenie GPG służące Jako programator 
pamięci EPROM, Interfejs CENTRONICS 
oraz uniwersalny cartrldge; inne drobiazgi 
do ATARI XE/XL 

Sprzedaż wysyłkowa Katalogi gratis 

S. K. "CHIP" 

Skr. pocztowa 15 tel 45-14 

24-320 PONIATOWA pogodz 18 


Redakcja Tajemnic Atari Informuje o możliwości wysyłkowego nabywania 
wszystkich programów zawartych w dowolnym numerze pisma, nagranych na kasetę 
(tylko w transmisji normalnej) lub na dyskietkę W skład zbioru wchodzą wszystkie 
listingi, zamieszczone w wybranym przez Zamawiającego numerze Tą|emnlc. 

Cena wersji kasetowej wynosi 25 000 zł, zaś dyskowej 23.000 zł W cenę wli¬ 
czony Jest koszt nośnika, nagrania, opakowania oraz opłaty pocztowe Same 
listingi są za darmo. 

Zainteresowanych ofertą prosimy o dokładne wypełnienie zamówienia (na od¬ 
wrocie) 1 po naklejeniu go na kartę pocztową, wysłanie na adres redakcji po¬ 
dany w stopce. 

Uwaga! Prosimy o nleprzysyłanle wcześniej należności, będzie ona bowiem re¬ 
gulowana przy odbiorze przesyłki 
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W systemie operacyjnym komputerów ATARI XL/XE 
istnieje osiem kanałów wejścia/wyjścia, stanowiących 
swoisty pomost pomiędzy programami aplikacyjnymi 
(czyli - najogólniej mówiąc - tymi, które odczytujemy 
z dysku lub kasety przy pomocy DOS-a albo COS-a), 
a urządzeniami zewnętrznymi. Dzięki nim, pisząc pro¬ 
gram nie musimy martwić się specyficznymi cechami 
np stacji dysków, czy też drukarki - wystarczy poin¬ 
formować OS. że mamy ochotę wymienić informacje 
z dowolnym z peryferiów, a on już zajmie się organiza¬ 
cją naszej współpracy. Kanały wejścia/wyjścia zostaną 
opisane w jednym z najbliższych odcinków tego cyklu, 
teraz natomiast chciałbym powiedzieć kilka słów o jed¬ 
nym z urządzeń zewnętrznych, które większości z nas 
wydaje się integralną częścią komputera. Tym urządze¬ 
niem jest ekran, określany często angielskim słowem 
screen, od którego pochodzi jego symboliczna, używa 
na przez system, nazwa "S:\ Wbrew pozorom nie jest 
to pomyłka - ekran traktowany Jest w przypadku małe¬ 
go ATARI Jak urządzenie peryferyjne i cała współpraca 
z nim organizowana jest tak, jak z każdym innym urzą¬ 
dzeniem. Tu mała uwaga: pod pojęciem ekran rozu¬ 
miem w tym wypadku ekran graficzny, ponieważ ekran 
tekstowy to już zupełnie inne urządzenie. 

Chyba każdy z użytkowników ATARI XL/XE widział, 
jak na ekranie wyświetlany jest jednocześnie tekst 
i grafika. W takim przypadku system operacyjny uru¬ 
chamia jakby dwa niezależne tory myślenia - jeden 
związany z urządzeniem "S:" (grafika w górnej części 
ekranu), a drugi z urządzeniem "E:" (tekst w dole ekra¬ 
nu, nazwa urządzenia pochodzi od angielskiego słowa 
editor, które w tym przypadku bardzo trudno ładnie 
przetłumaczyć na Język polski). Cztery wiersze tekstu 
w dolnej części ekranu stanowią tak zwane okienko te¬ 
kstowe, które używa stu sześćdziesięciu bajtów pamię¬ 
ci operacyjnej poniżej tzw. RAMTOP-u (patrz opis ko¬ 
mórki 106, czyli $6a). Obydwa obszary mają niezależ¬ 
ne kursory (w przypadku części graficznej kursor jest 
umowny, bo przecież nie widać go na obrazku tak, jak 
w tekście) i kilka Innych, specyficznych dla nich cech. 
Wiele informacji o stanie poszczególnych składowych 
wyświetlanego obrazu jest przechowywanych w komór¬ 
kach 656-703 ($0290-$02bf), które chciałbym w tej 
chwili opisać. 

656, $0290 TXTROW 

Numer wiersza, w którym znajduje się kursor. Doty¬ 
czy to okienka tekstowego, a więc możemy tu znaleźć 
wartości od 0 do 3. 

657, 658, $0291, $0292 TXTCOL 

Numer kolumny, w której znajduje się kursor. Doty¬ 
czy to okienka tekstowego, a więc możemy tu znaleźć 


wartości od 0 do 39. Wynika z tego. że starszy bajt nu¬ 
meru kolumny jest zawsze równy 0. 

659, $0293 TINDEX 

Ta komórka zawiera tryb graficzny okienka teksto¬ 
wego. Jest to odpowiednik komórki DINDEX (patrz 87, 
$57) i dopóki SWPFLG (patrz 123, $7b) zawiera zero, 
tutaj także możemy znaleźć zero. Oznacza to, ze okien¬ 
ko tekstowe jest inicjowane w trybie graficznym 0 

660, 661, $0294, $0295 TXTMSC 

Adres początku pamięci dla okna tekstowego. Jest to 
odpowiednik SAVMSC (patrz 88, 89, $58, $59) dla try¬ 
bu z okienkiem tekstowym. 

662-667, $0296-$029B TXTOLD 

W tym obszarze znajdują się odpowiedniki komórek 
OLDROW (90. $5a), OLDCOL (91, 92, $5b, $5c) 
OLDCHR (93, $5d) 1 OLDADR (94, 95Ó $5e. $5f) uży¬ 
wane przez system operacyjny wtedy, gdy na ekranie 
wyświetlany jest jednocześnie tekst i grafika 

668, $029c TMPX1 

Rejestr pomocniczy używany przez procedury obsłu¬ 
gujące ekran podczas przesuwania Jego zawartości. 

669, $029d HOLD3 

Rejestr pomocniczy. 

670, $029e SUBTMP 

Rejestr pomocniczy. 

671, $029f HOLD2 

Rejestr pomocniczy 

672, $02a0 DMASK 

W tej komórce system operacyjny przechowuje tzw. 
maskę dla piksela, którego dotyczy aktualnie wykony¬ 
wana operacja. W zależności od trybu graficznego. Je¬ 
den bajt pamięci ekranu reprezentuje od Jednego do 
ośmiu pikseli. Chcąc wykonać na ekranie jakąkolwiek 
operację (np narysowanie punktu), OS musi wiedzieć 
nie tylko, który bajt ma zostać zmodyfikowany, ale tak¬ 
że, której części bajtu ma dotyczyć operacja. Weźmy na 
przykład tryb graficzny, w którym jeden piksel ma sze¬ 
rokość jednego cyklu koloru. Oznacza to, że do zapisa¬ 
nia Jednego piksela potrzeba dwóch bitów, w związku 
z czym w jednym bajcie mieszczą się informacje o czte¬ 
rech pikselach. Ponieważ system operacyjny w danej 
chwili dokonuje jakichś operacji tylko na jednym pun 
kcle ekranu, to musi wyraźnie sprecyzować, o który 
punkt (w tym wypadku dwa bity) w bajcie mu chodzi 
Robi to przy pomocy maski, czyli bajtu, w którym usta 
wionę są bity, odpowiadające odpowiedniemu pikselo- 
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wl Być może brzmi to dość zawile lecz w Istocie jest 
proste - np. kiedy DMASK zawiera %00110000 to oz¬ 
nacza to, ze system operuje na drugim, licząc od lewej, 
pikselu zawartym w jakimś bajcie. Liczba %00001100 
oznacza trzeci piksel, a np liczba %00000100 oznacza 
szósty piksel w trybie graficznym, gdzie punkt zakodo¬ 
wany jest jednym bitem (choćby tryb graficzny 8). 

673, $02al TMPLBT 

Rejestr pomocniczy do przechowywania maski blto- 
wej. 

674, $02a2 ESCFLG 

Znacznik klawisza ESC. Normalnie zawiera zero, 
jest tu wpisywana liczba 128, jeśli został naciśnięty 
klawisz ESC. Wartość zero jest przywracana po wysła¬ 
niu na ekran następnego znaku. Patrz także DSPFLG 
(766, S02fe). 

675-689, $02a3-$02b 1 TABMAP 

Umowna mapa pozycji tabulacji. Jest to obszar zło 
żony z 15 bajtów (jak łatwo policzyć 15*8=120). któ 
rych bity odpowiadają kolumnom w Unii logicznej. Bit 
ustawiony oznacza tzw. przystanek tabulacji, czyli 
miejsce, w którym zatrzyma się kursor po naciśnięciu 
klawisza TAB. Dlaczego akurat potrzeba na to 120 bi¬ 
tów? Edytor ekranowy ATARI XL/XE operuje na tzw. 11 
nlach logicznych, z których każda składa się z trzech 
linii fizycznych (trzech wierszy na ekranie po 40 baj¬ 
tów) 1 stąd właśnie bierze się ograniczenie dla długości 
wiersza programu w BASIC-u Aby ustawić własne 
przystanki tabulacji należy przede wszystkim wyobra¬ 
zić sobie linię logiczną w postaci ciągu zer 1 wplecio¬ 
nych pomiędzy nie jedynek, symbolizujących miejsca 
zatrzymywania kursora. Np. aby ustawić tabulację na 
pozycjach 1, 3. 12, 25 trzeba utworzyć mapę postaci 

10100000000100000000000010000000 _ 

Po podzieleniu ciągu bitów na bajty otrzymamy: 

10100000 00010000 00000000 10000000 ... 

Oznacza to, że powinniśmy w BASIC-u wykonać ciąg 
Instrukcji: 

POKE 675, 160 
POKE 676, 16 
POKE 677, 0 
POKE 678, 128 

lid. 

System operacyjny przywraca standardową mapę ta¬ 
bulacji po naciśnięciu klawisza RESET 1 po zmianie 
trybu graficznego. Patrz także PTABW (201, $c9). 

690-693, $02b2-$02b5 LOGMAP 

Mapa linii logicznych edytora ekranowego. Spośród 
czterech bajtów tej struktury używane są tylko trzy. 
Każdy bit jednego z tych trzech bajtów symbolizuje jed¬ 
ną z linii fizycznych na ekranie - jak łatwo się domy¬ 
ślić, przewiduje się używanie 24 takich linii. Oto sche¬ 
mat przyporządkowania bitów poszczególnym liniom: 


Adres 

7 

6 

5 

4 

3 

2 

1 

0 

690 

0 

1 

2 

3 

4 

5 

6 

7 i: 

691 

8 

9 

10 

11 

12 

13 

14 

15 jj 

692 

16 

17 

18 

19 

20 

21 

22 

23 

693 








- 1 


Ustawienie któregoś z tych bitów oznacza, że w odpo 
władającej mu linii fizycznej zaczyna się linia logiczna. 
Mapa linii logicznych jest zapisywana wartościami po¬ 
czątkowymi podczas obsługi RESET-a i po zmianie 
trybu graficznego. 

694, $02b6 INYFLG 

Znacznik Inwersji znaków. Przed wyświetleniem na 
ekran, prawie (nie dotyczy to tzw kodów sterujących, 
np. ESC, czy też BELL) wszystkie znaki ATASCII mają 
siódmy bit wyzerowany. Podczas wyświetlania Ich, pro¬ 
cedury obsługujące ekran wykonują operację różnicy 
symetrycznej na kodzie każdego znaku 1 zawartości 
INYFLG. 

Różnica symetryczna to operacja logiczna, dająca 
wyniki według tabelki: 


bit 1 

bit 2 

wynik 

0 

0 

0 

0 

1 

1 

1 

0 

1 

1 

1 

0 j 


Wbrew pozorom, aby używać różnicy symetrycznej 
nie trzeba wcale uczyć się tej tabelki na pamięć! Wy¬ 
starczy wiedzieć, że jest to swego rodzaju porównanie 
bitów, którego wynikiem Jest Jedynka zawsze wtedy, 
gdy porównywane bity są różne. Wypada dodać, że 
w przypadku dokonywania operacji różnicy symetrycz¬ 
nej (nazwijmy ją wreszcie po Imieniu - wszyscy progra 
mlścl używają nazwy EOR) na dwóch bajtach, porów 
nywane są odpowiednie bity każdego z nich. a więc bit 
siódmy pierwszego bajtu z bitem siódmym drugiego 
bajtu ltd. Jak łatwo zauważyć - łatwo Jest przy pomocy 
omawianej operacji zamienić na przeciwne wszystkie 
bity w bajcie - wystarczy ten bajt "zEORować" z liczbą 
255, czyli dwójkowo %11111111. Wszystkie jedynki 
w zamienianym bajcie zmienią się w zera 
(1 EOR 1 = 0), a wszystkie zera zmienią się w jedynki 
(0 EOR 1 = 1). Oczywiście kolejny taki EOR przywróci 
poprzedni stan bitów. Można więc także używać opera¬ 
cji różnicy symetrycznej do naprzemiennej zmiany ja¬ 
kiegoś bitu, czy tez całego bajtu, wiedząc, że każdy 
EOR "przestawia' go na przeciwny. 

Wracając do rzeczy - ponieważ normalną zawarto¬ 
ścią komórki 694 Jest zero, to kody znaków podczas 
"EORowania" Ich z tymże zerem nie zmieniają się. 

W komórce INYFLG może znaleźć się jedna z dwóch 
wartości: 0 lub 128 System operacyjny wpisuje je tu 
na przemian po każdym naciśnięciu klawisza ATARI 
LOGO (to ten w prawym, dolnym rogu klawiatury, zwa¬ 
ny żargonowo "lnwersem"). Oczywiście nic nie stoi na 
przeszkodzie temu, aby wpisać tu liczbę 128 samemu, 
lecz należy pamiętać, że ma to znaczenie tylko podczas 
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wprowadzania znaków z klawiatury - podczas wypisy¬ 
wania np, zmiennej tekstowej nic się nie zmieni. Uwa¬ 
ga: omyłkowe wpisanie innej, niedozwolonej liczby mo¬ 
że znacznie utrudnić dalszy dialog z komputerem. 

Rezultaty eksperymentów z komórką INVFLG można 
będzie zobaczyć po wstukaniu (1 ewentualnej modyfika¬ 
cji wiersza 30) poniższego maleńkiego programiku: 

10 CLR :DIM A$(10) 

20 INPUT A$ 

30 POKE 694,128:INPUT A$ 

40 POKE 694,0:END 

695, $02b7 FILFLG 

Znacznik operacji wypełniania dla komendy DRAW. 
Jeśli aktualnie wykonywaną komendą jest DRAW, 
w tej komórce znajduje się zero. Jeśli żądaną komen¬ 
dą jest FILL, to jest tu wpisywana wartość niezerowa. 
Zwracam uwagę na to, ze chodzi ml o wewnętrzne ope¬ 
racje wykonywane przez system operacyjny za pośred¬ 
nictwem kanałów wejścia/wyjścia, które zostaną opisa¬ 
ne później 

696, $02b8 TMPROW 

Rejestr pomocniczy używany wraz z ROWCRS (84. 
$54) 

697, 698, $02b9, $02ba TMPCOL 

Rejestr pomocniczy używany wraz z COLCRS (85, 
86, $55, $56) 

699, $02bb SCRFLG 

Flaga przesuwania zawartości ekranu, używana 
przez system operacyjny, kiedy zachodzi konieczność 
wykonania takiej akcji. Zawiera pomniejszoną o Jeden 
liczbę linii fizycznych, które zostały usunięte na górze 
ekranu, aby zrobić miejsce dla nowych Informacji, do¬ 
pisywanych u dołu. SCRFLG jest ściśle związana z li¬ 
niami logicznymi edytora, dlatego wpisywana tu war 
tość jest Jedną z liczb od 0 do 2 włącznie. 

Bardzo ciekawe jest to, ze przesuwanie zawartości 
okienka tekstowego odbywa się Identycznie, jak prze¬ 
suwanie całego ekranu w trybie graficznym 0. System 
operacyjny przemieszcza w pamięci nie tylko dane re¬ 
prezentujące zawartość okienka, ale także dodatkowo 
800 bajtów pamięci poniżej obszaru zajmowanego 
przez okienko tekstowe Warto o tym pamiętać, jeśli 
zdecydujemy się na umieszczenie w tym miejscu ja¬ 
kichś znaczących Informacji, 

700, $02bc HOLD4 

Rejestr tymczasowy, używany tylko podczas wykony¬ 
wania komendy DRAW. Jest w nim chwilowo przecho¬ 
wywana zawartość komórki ATACHR (763, $02fb). 

701, $02bd HOLD5 

Rejestr tymczasowy, używany podobnie, jak HOLD4 

702, $02be SHFLOK 

Flaga dla klawiszy SHIFT 1 CONTROL. Normalnie 
jest tu wpisywana liczba 64 ($40), co oznacza, ze wpi¬ 
sywane z klawiatury litery będą wyświetlane jako wiel¬ 


kie. Wyzerowanie SHFLOK spowoduje przejście w tryb 
małych liter, zaś wpisanie tu liczby 128 zadziała Jak 
naciskanie klawiszy z wciśniętym dodatkowo klawi¬ 
szem CONTROL. czyli spowoduje wyświetlanie znacz¬ 
ków graficznych. Proponuję wpisanie w BASIC-u in¬ 
strukcji: 

? PEEK(702) 

a potem naciśnięcie klawisza CAPS I wpisanie Jej ponow 
nie Widać ze zawartość SHFLOK nieco się zmieniła 

703, $02bf BOTSCR 

Ta komórka pamięci zawiera liczbę, mówiącą o ilości 
wierszy ekranu, dostępnych dla wypisywania w nich te¬ 
kstów. Dla trybu graficznego 0 jest tu liczba 24, dla try¬ 
bów z okienkiem tekstowym - liczba 4, zaś dla trybów 
graficznych - liczba 0. Wypada dodać, ze tryby graficz¬ 
ne 1 1 2 są traktowane Jak grafika, czyli powodują zapi¬ 
sanie tutaj wartości zero. Na podstawie BOTSCR pro¬ 
cedury systemowe, obsługujące ekran stwierdzają, czy 
aktualnie Jest wyświetlane okienko tekstowe. 

Ciekawostką jest fakt, ze poprzez wpisanie tutaj licz¬ 
by 4 można dodać okienko tekstowe do ekranu w try 
ble graficznym 0. Górne 20 wierszy nie będzie wtedy 
przesuwane - można tam umieścić np. stały opis do¬ 
stępnych poleceń lub Instrukcje dla użytkownika. 

Komórki pamięci od 704 do 712 ($02c0-$02c8) są 
rejestrami koloru dla graczy, pocisków oraz ekranu 
Są to komorkl-clenle sprzętowych rejestrów 53266- 
53274 ($d012-$d01a). Ich zawartość można zmieniać 
w BASIC-u przy pomocy Instrukcji SETCOLOR lub 
POKE Pożądany kolor uzyskujemy, wpisując tu liczby 
według wzoru: 

kolor = numer koloru * 16 + jasność * 2 

Nasze ATARI Jest w stanie wyprodukować 16 róż¬ 
nych kolorów, z których każdy może być wyświetlony 
w Jednym z ośmiu stopni Jasności (tylko ośmiu, bo naj 
młodszy bit rejestrów koloru Jest Ignorowany) W pra¬ 
ktyce uzyskanie wszystkich tych kolorów Jednocześnie 
wymaga zastosowania specjalnych technik programo¬ 
wania, ale Jest możliwe Oto tablica dostępnych kolo¬ 
rów 


0 

Czarny 

1 

Rdzawy 

2 

C zerwo no-pomarańczowy 

3 

Clemnopomarańczowy 

4 

Czerwony 

5 

Lawendowy 

6 

Kobaltowy 

7 

Ultramaryna 

8 

Niebieski 

9 

Ciemnoniebieski 

10 

Nleblesko-szary 

11 

Oliwkowo-zlelony 

12 

Zielony 


13 





















taje 




13 

Ciemnozielony 

14 

Pomarańczowo-zlelony 

15 

Pomarańczowy 


Nieco dalej w tym numerze TA, w artykule z cyklu 
"Piszemy demo" umieszczona jest tabelka kolorów, któ 
iych nazwy nieco różnią się od podanych wyżej Wydaje 
ml się, ze ta różnica wynika z różnej Interpretacji 
barw, oraz (a może przede wszystkim) ze sposobu pre¬ 
zentowania kolorów ATARI przez różne telewizory. 
Sprawę tę pozostawiam do oceny Czytelnikom 

Muszę z przykrością stwierdzić, że mimo ładnych 
nazw, kolory produkowane przez nasz ulubiony kom¬ 
puter nie są najładniejsze 1 zdarzyło ml się słyszeć na 
rzekanla autorów gier na temat kolorów ATARI Nieste¬ 
ty, w czasach, kiedy powstawały modele XL/XE na ryn¬ 
ku nie było takich układów elektronicznych, jakich 
używa się w komputerach domowych współcześnie. 

Ogólnie mówiąc rejestry koloru mają następującą 
strukturę: 


7 6 5 4 

3 2 1 

0 

kolor 

Jasność 

ileu 

ywa 

ny 


Oznacza to, ze liczba, jaką znajdujemy w takim reje¬ 
strze zawiera Informacje o kolorze 1 jego jasności, za¬ 
kodowane na odpowiednich bitach. Aby uzyskać np 
kolor czerwony o jasności 6 należy rozpisać go w taki 
sposób: 

kolor =4* 16 +6*2 

co po wyliczeniu daje 76. Taką liczbę należy wpisać do 
odpowiedniego rejestru koloru. 

704, $02c0 PCOLRO 

Kolor dla gracza 1 pocisku 0. Cień rejestru 53266 
($d012). W trybie 10 GTIA ta komórka pamięci zawie¬ 
ra kolor tła, normalnie pobierany z komórki 712. Do 
zmiany kolorow graczy 1 pocisków nie można używać 
Instrukcji SETCOLOR - nadaje się do tego jedynie ln- 
strukja POKE 

705, $02cl PCOLR1 

Kolor dla gracza 1 pocisku 1. Cień rejestru 53267 
($d013). 

706, $02c2 PCOLR2 

Kolor dla gracza 1 pocisku 2. Cień rejestru 53268 
($d014). 

707, $02c3 PCOLR3 

Kolor dla gracza 1 pocisku 3. Cień rejestru 53269 
($d015). 

Kiedy z czterech pocisków tworzony jest piąty gracz, 
to ma on kolor zawarty w rejestrze COLOR3 (712, 

$02c7). 


709, $02c5 COLORO 

Rejestr koloru 0 dla pola gry. Cień rejestru 53270 
($d016). Ustawiany w BASIC-u przy pomocy instrukcji 
SETCOLOR 0. W trybach graficznych 112 ten kolor 
używany jest do wyświetlania wielkich liter. 

710, $02 c6 COLOR1 

Rejestr koloru 1 dla pola gry. Clen rejestru 53271 
($d017). Ustawiany w BASIC-u przy pomocy Instrukcji 
SETCOLOR 1. W trybach graficznych 112 ten kolor 
używany jest do wyświetlania małych liter, zaś w try¬ 
bach 0 1 Sjest używany jako kolor tekstu lub rysunku. 

710, $02c6 COLOR2 

Rejestr koloru 2 dla pola gry. Cień rejestru 53272 
($d018). Ustawiany w BASIC-u przy pomocy Instrukcji 
SETCOLOR 2. W trybach graficznych 112 ten kolor 
używany jest do wyświetlania wielkich liter w Inwersji, 
zaś w trybach 0 1 8 jako kolor tla. Użycie kolorów 
w trybie graficznym 8 jest o tyle ciekawe, że praktyce 
na ekranie da się uzyskać więcej nlz dwa kolory. Po¬ 
przez umiejętny dobór pikseli można spowodować, że 
zobaczymy aż cztery kolory Tę technikę nazwano po 
angielsku artejacting. Za książką I. Chadwicka "Map- 
plng The ATARI" podaję kombinacje bitów, pozwalają¬ 
ce na blizsze przyjrzenie się tym ‘artefaktom": 

00 01 00 kolor A 

00 11 00 kolor B 

00 10 00 kolor C 

00 01 10 kolor D 

Jedynki oznaczają piksele zapalone; pokazano tu po 
trzy grupy dwuplkselowe, ponieważ cała sztuka polega 
na umiejętnym doborze takich grup, z których każda 
ma szerokość jednego cyklu koloru. 

711, $02c7 COLOR3 

Rejestr koloru 3 dla pola gry. Cień rejestru 53273 
($d019). Ustawiany w BASIC-u przy pomocy Instrukcji 
SETCOLOR 3. W trybach graficznych 112 ten kolor 
używany jest do wyświetlania małych liter w inwersji. 

712, $02c8 COLOR4 

Rejestr koloru tła 1 ramki wokół pola gry. Cień reje¬ 
stru 53274 ($d01a). W trybie 10 GTIA staje się nor¬ 
malnym rejestrem koloru, ponieważ funkcje rejestru 
koloru tła przejmuje PCOLRO (704, $02c0). 

Domyślnymi wartościami kolorów graczy są zera, 

a kolorów pola gry i tła liczby: 


Rejestr 

Wartość 

Nr koloru 

Jasność 

COLORO 

40 

2 

8 

COLOR1 

202 

12 

10 

COLOR2 

148 

9 

4 

COLOR3 

70 

4 

6 

COLOR4 

0 

0 

0 


Jarosław Syrylak 
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Mało kto 
wie, że na ru¬ 
bieżach na¬ 
szej galaktyki 

już od stuleci 
trwa okrutna 
walka. Ob¬ 
cych nie moż¬ 
na zabić - są 
nieśmiertelni 
Można ich tyl¬ 
ko powstrzy¬ 
mywać celny¬ 
mi strzałami, 
jak długo się 
da. Obrońcy 
zmieniają się 
co jakiś czas, 
gdyż dla jed¬ 
nego byłby to 
trud ponad 
siły. Dziś 
właśnie kolej 
na Ciebie, 

Grę zapisu¬ 
je się w posta¬ 
ci odpowied¬ 
niej dla DOS-u 
lub COS-u lub 
TOS-u przy 
pomocy Zgry- 
wusa-K Po¬ 
nowne uru¬ 
chomienie po 
przegranej - 
CLEAR. 


IJ 000 REM *-* 

XD 1002 REM : Inwazja : 
XU 1004 REM : autor: Krzysztof Bar : 
YY 1006 REM : (c) 1992 Tajemnice ATARI : 

JP 1008 REM *-* 

XW 1010 DATA ffff0080598668207e82208982 
AA 1020 DATA a9f285b2a98485b320b782a209 
HE 1030 DATA a023blb091b4blb291b08810f5 
VW 1040 DATA 209782a00220a582888810f9ca 
IZ 1050 DATA 10e420ce82a9ff8dfc02adfC02 
XS 1060 DATA C91cd0034cb583c9ffd013ad0f 
¥1 1070 DATA d22908f00cadlfd0c906f005ad 
UB 1080 DATA 8402d0dfa9ff8dfc02a990a002 
UH 1090 DATA 99e8838810faa91ea00599d383 
MW 1100 DATA 8810faa9008dc5838dc3838dc4 
NL 1110 DATA 83a51418690285cb85cc85cda0 
WB 1120 DATA 05a5141879cd8399c7838810f4 
FT 1130 DATA 20ce82adfC02c936d0034c9083 
GN 1140 DATA c91cd0034cb583c921d0034c96 
IV 1150 DATA 83adc383c901f013ad0fd22908 
AT 1160 DATA f00cad8402c900f005a9018dc3 
YC 1170 DATA 83a9ff8dfc02a514c514f0fcad 
OC 1180 DATA fc02c90ff016c94ff012a514c5 
MF 1190 DATA cbd01618690385cbad7802c90d 
CD 1200 DATA d00aadc583c905f003eec583ad 
LR 1210 DATA fc02c90ef016c94ef012a514c5 
Ol 1220 DATA ccd01618690385ccad7802c90e 
QJ 1230 DATA d00aadc583c900f003cec58320 
OC 1240 DATA 098320c082acc5832097828810 
EW 1250 DATA faa004b9da8391b08810f82097 
ON 1260 DATA 82a004b9df8391b08810f820C0 
JT 1270 DATA 82a200209782a5b0187dd38385 
UJ 1280 DATA b2a5bl690085b3a003b9e48391 
YB 1290 DATA b28810f8a514ddc783d01cl87d 
BF 1300 DATA cd839dc783ded383bdd383c906 
GR 1310 DATA d00ba90085b2a98485b34cle83 
HZ 1320 DATA e8e006d0bda514c5cdd0341869 
BH 1330 DATA 0585cdad0fd22908f005ad8402 
MY 1340 DATA d023adc383c901d01cadc483c9 
XK 1350 DATA 00d015a9038dc483adc5838dc6 
MI 1360 DATA 83a9008dc383a90a8d01d2adc4 
FW 1370 DATA 83c900d008a9008d01d24c6a82 
FX 1380 DATA 20c082acc6832097828810faa0 
HU 1390 DATA 05blb0c900d008add98391b0c8 
LI 1400 DATA 10f2cec483adc483c900d069ac 
IQ 1410 DATA Cć83a91e99d383ad0ad2290f18 
MQ 1420 DATA 690599cd83a5141879cd8399c7 
VZ 1430 DATA 83a203a9909de883cafee883bd 
MN 1440 DATA e883c99af0f0a202a000b9ec83 
VG 1450 DATA d9e883900af002b011c8cal0f0 


NH 1460 DATA 300ba002b9e88399ec838810f7 
BD 1470 DATA 20ce82a002b9e883c999d00e88 
AC 1480 DATA 10f6a97985b2a98485b34cle83 
JN 1490 DATA 20c082a006a207a91a91b02097 
NP 1500 DATA 82cal0f64c9680a007a9009900 
JN 1510 DATA d28810fa60a5581869f285b0a5 
XC 1520 DATA 59690085bl60a5b018692885b0 
CW 1530 DATA a5bl690085bl60b9b200186924 
DC 1540 DATA 99b200b9b300690099b30060a9 
KI 1550 DATA 5a85b4a98685b560a55818691b 
UQ 1560 DATA 85b0a559690185bl60208982a2 
PF 1570 DATA 02a010bde88391b088cal0f7a2 
TD 1580 DATA 02a01cbdec8391b088cal0f760 
IR 1590 DATA 20898220b782a209a023blb491 
VM 1600 DATA b08810f 9 209 7 82a002 20a582ca 
GF 1610 DATA 10ec6020c082a207a900a02191 
TJ 1620 DATA b08810fb209782cal0f1602009 
BO 1630 DATA 83207e8220c082a207a92085b4 
CJ 1640 DATA C6b4a5b44aa8blb2290f8def83 
WI 1650 DATA acef83b9f083a4b491b0c6b4a5 
GE 1660 DATA b44aa8blb24a4a4a4a8def83ac 
UR 1670 DATA ef83b9f083a4b491b0a5b4c903 
HY 1680 DATA b0ca209782a5b218690f85b2a5 
XA 1690 DATA b3690085b3cal0b3a009a90085 
MN 1700 DATA 14adfc02c9Icf032c936f009a5 
LH 1710 DATA 14c932d0ef8810e820ec824c01 
OR 1720 DATA 80207e82a9ff8dfC02adfC02c9 
CN 1730 DATA Icf010c936f0e7c921d0fla9ff 
CW 1740 DATA 8dfc024c7d80a9ff8dfC02207e 
AP 1750 DATA 8220ec826c0a0©000000003636 
QW 1760 DATA 3636363604080c0f060blelele 
QX 1770 DATA Ielele0e008f8fd44a004d4d4d 
PF 1780 DATA 4d4887cd45909090009090901f 
BG 1790 DATA 004b4cd54f3859c949d938cf55 
MZ 1800 DATA cccb800000cc48c4ccc0cc8cc4 
AU 1810 DATA ccc8cc4c0c0000f0f0f0fc01ec 
FR 1820 DATA 0960fC00960bc70000f0f8f4fc 
SI 1830 DATA c8cd2960fCC09600f000000000 
FO 1840 DATA 00000000000000000000008097 
BF 1850 DATA e97el3f97387e97e87e9609738 
PX 1860 DATA 7296f96f0d29e496096f96f9e4 
00 1870 DATA 9e41e497297e96096096f97e97 
KF 1880 DATA f96096000f1201231331330331 
NN 1890 DATA 23123133133132008C0CC08C0C 
BX 1900 DATA cc84c8400c40c48cc8ccf12f96 
YX 1910 DATA f960f096f96096f96300f9e4bd 
SA 1920 DATA 6fb4fb60f01e79ec97fIe71e79 
TN 1930 DATA C000000000000000000000000 
QO 1940 DATA 0000400f00f9696d3e97b4d3e9 
DG 1950 DATA 600f3387300f84f96961009696 
YS 1960 DATA f0f9e40fc01ec00f96f0b70f0f 
HS 1970 DATA 97b4f3f9600f00009601332012 
GR 1980 DATA 013312123031332333133080cd 
ZX 1990 DATA 554e55cd80b0f5eeebf4f99a90 
WJ 2000 DATA 90908080b2e5ebeff2e49a9090 
JM 2010 DATA 9080cd554e55cd80d651525252 
KO 2020 DATA 5200555549554f494f00494f49 
Ol 2030 DATA 550055554f55554f4955000052 
FF 2040 DATA 52525245c2d9415252520000d9 
UM 2050 DATA 59d95980d95900d95980d95900 
SC 2060 DATA cc4c00d95980d9590000525252 
GO 2070 DATA 4459d6415252000000d959d959 
JW 2080 DATA 80d9 5 9 80d9 59 80cf 59 CC4C0055 
OB 2090 DATA d95980cf 59000000525244C280 
MJ 2100 DATA 415200000000d5d54b4cd500d5 
CX 2110 DATA d5d500d54b4cd5d54c4bd500d5 
EX 2120 DATA 4b4c0000000052448080415252 
GY 2130 DATA 00000000246c61000234616a65 
AG 2140 DATA 6d6e6963002134213229020000 
WM 2150 DATA 000052524480d6415252520000 
NC 2160 DATA 6e61706973616cla002b727a79 
YT 2170 DATA 737a746f660022617200005252 
TU 2180 DATA 5244c2d941525252520000646e 
CI 2190 DATA 69611a001212002c757465676f 
WZ 2200 DATA 00111919120000525252524459 
XJ 2210 DATA d65a5252525252525252525252 
CL 2220 DATA 52525252525252525252525252 
NN 2230 DATA 525252525252525243c280ced5 
WN 2240 DATA 4dd5ce80d48080d48080d48080 
SJ 2250 DATA d48080d48080d48080d48080d4 
BK 2260 DATA 80ced54dd5ce80e002el020180 
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Klocki raz jeszcze 

W ostatnim juz odcinku na temat 
modularnego programowania po¬ 
każę dwa pożyteczne programy, 
które przy minimalnym wysiłku 
można uzyskać z klocków przed¬ 
stawionych do tej pory Kto nie ma 
poprzedniego numeru TA, może go 
nabyć korespondencyjnie (szczegó¬ 
ły na str 10). Tych fragmentów 
programu, które zostały w nim wy¬ 
drukowane, nie będę juz dziś po¬ 
wtarzał. 

Oba programy należą do grupy 
tzw. transkoderow, czyli progra 
mow przekształcających dane z ja¬ 
kiejś Jednej postaci w drugą. Styl 
pracy takiego kodera do złudzenia 
przypomina zwykły kopler Różnica 
polega na zamianie danych w pe¬ 
wien sekretny sposób. Ponieważ 
pamięć nie jest z gumy, stosujemy 
w przypadku transkoderow zasadę 
oszczędności miejsca jeżeli kon¬ 
wersja zmniejsza rozmiar danych, 
to należy ją przeprowadzać pod¬ 
czas odczytu (więcej się zmieści); 
w przeciwnym razie kodujemy dane 
podczas wysyłania ich do pliku wyj¬ 
ściowego, by nie rosły w pamięci. 
Oczywiście modyfikacja danych wy¬ 
maga czasu, takie dzla anie pod¬ 
czas transmisji powo , .je zwolnie¬ 
nie odczytu lub zapisu, jeśli więc 
dane nie zmieniają objętości, lub 
zmieniają ją nieznacznie, to można 
dokonać przekodowania całości 
w pamięci, pomiędzy operacjami 
odczytu i zapisu, jak robi to poniż¬ 
szy 

1. Eol Eater 

Ten miły program służy do wyci¬ 
nania z plików wszystkich znaków 
o kodzie 155, stosowanych w syste¬ 
mie ATARI dla oznaczenia końca 
wiersza. Podstawowym zastosowa¬ 
niem Eatera jest kompresja danych 
do gry The Jet, którą wydrukowa¬ 
no na str. 28. Plansze do gry tworzy 
się dowolnym edytorem lecz po¬ 
wstające przy tym końce linii są dla 


gry niepotrzebnym (choc nieszkod¬ 
liwym) balastem po 'przepuszcze¬ 
niu" planszy (podkreślam: samej 
planszy, a nie gry) The Jet przez 
Eol Eater-a staje się ona krótsza 
o tyle bajtów, ile liczyła wierszy. 

* TA EOL EATER 

* autor: JBW & De Jet 

* (c) 1992 Tajemnice ATARI 

Początek podobny do TA Copy, 
nie? W rzeczywistości te programy 
różnią się w niewielu szczegółach. 
Najlepiej więc wziąć tekst kopiera, 
wywalić z niego klocek read a za¬ 
miast niego wstawić 

* - wczytaj plik 

read Ida #4 

jsr open 
bmi rret 
Ida size 
sta io_len,x 
Ida size+1 
sta io_len+l,x 
jsr mcio 
bmi rret 

Na razie tak samo, lecz przyta¬ 
czam to dla porządku 

* ustaw adresy 

clc 

Ida bufa 
sta addr 
sta word 
adc io_len,x 
sta used 
Ida bufa+1 
sta addr+1 
sta word+1 
adc io_len+l, x 
sta used+1 

Tym razem słowo USED przecho¬ 
wuje chwilowo adres końca wczyta¬ 
nego pliku, aby było wiadomo, 
gdzie skończyć. Do przebiegania po 
danych wejściowych służy WORD, 
zaś ADDR wskazuje miejsce w bu¬ 
forze. gdzie wpisywane są bajty re¬ 
zultatu. Ponieważ ten drugi wskaź¬ 
nik nigdy nie prześcignie pierwsze¬ 
go, można bez obawy wykorzystać 
wspólny bufor. 

eat_loop equ * 

Idy #0 


Ida (word),y 
cmp #eol 
beq eat eol 
sta (addr),y 
inc addr 
bne *+4 
inc addr+1 
eat eol equ * 

Metoda konwersji jest prosta: je¬ 
żeli wykryjemy EOL, to wystarczy 
po prostu nie przepisywać tego baj- 
tu (nie zmienia się adres docelowy 
ADDR). Zawsze natomiast zwię¬ 
ksza się adres źródłowy WORD. Po¬ 
równanie go ze strażnikiem USED 
pozwala na zakończenie procesu 
w stosownym miejscu. 

inc word 
bne *+4 
inc word+1 
Ida word 
cmp used 
Ida word+1 
sbc used+1 
bcc eat loop 

Pozostaje obliczyć nową długość 
pliku: 

sec 

Ida addr 
sbc bufa 
sta used 
Ida addr+1 
sbc bufa+1 
sta used+1 
rret rts 

I kosmetyczna poprawka w da¬ 
nych, by wyświetlała się prawidło¬ 
wa winieta programu 

*-dane 

data dta b(eol) 

dta c ' TA Eol Eater '* 
dta b(eol) 

zamiast tytułu "TA Copy” (reszta 
danych bez zmian) 

Autorem procedury wcinającej 
Eole jest Dariusz Żołna. 

Dygresja: posiadacze Panthera 
mogą rzecz całą wykonać dużo pro¬ 
ściej. Wystarczy zdefiniować tabelę 
konwersji z jedynym wpisem: 
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AB... 




taje 



* prolog konwersji 


Ida 

<dat 

sta 

byte 

clc 


Ida 

bufa 

sta 

addr 

adc 

used 

sta 

word 

Ida 

bufa+1 

sta 

addr+1 

adc 

used+1 

sta 

word+1 

Ida 

dl a 

sta 

io adr,x 

Ida 

dl_a+l 

sta 

io adr+1,x 


Główna pętla konwersji pobiera 
kolejne bajty 1 wysyła Je na wyjście 
za pomocą procedury BOUT. Ope¬ 
rację przerywa się (ważne!) gdy 
BOUT zamelduje błąd. 


* pętla konwersji 
wri_ Ida addr 
cmp word 
Ida addr+1 
sbc word+1 
bcs wend koniec? 
Idy #0 

Ida (addr),y 
inc addr 
bne *+4 


#155= 

co się czyta "zamień wszystkie 
EOL na nic", aktywizować ją. a na¬ 
stępnie "wydrukować" ułożoną 
planszę na plik dyskowy lub kase¬ 
towy opcją Flle/Prtnt. 

2. Hex DATA Goder 

Narzędzie to służy do zamiany 
programów maszynowych na wier¬ 
sze DATA tak. by mogły być łatwo 
prezentowane na łamach czaso¬ 
pism. Każdy bajt pliku wejściowego 
zostanie zamieniony na odpowiada¬ 
jącą mu parę cyfr szesnastkowych. 
Te pary zgrupowane są po 13 
w wierszu, a każdy wiersz zaczyna 
się od numeru 1 słowa DATA Pier¬ 
wszy wiersz zawiera pusty rozkaz 
REM (jest to minimum niezbędne 
dla Zgrywusa+) 1 ma numer 1000. 
Pozostałe wiersze numerowane są 
z krokiem 10. 

* TA Hex DATA autor: JBW 

* (c) 1992 Tajemnice ATARI 

Ponieważ taka konwersja danych 
powoduje ponad dwukrotne zwię¬ 
kszenie ich objętości, nie wykonuję 
Jej w pamięci, lecz dopiero "na ży¬ 


wo" podczas zapisu pliku docelo¬ 
wego Znów punktem wyjścia bę¬ 
dzie TA Copy, lecz tym razem pozo¬ 
stawimy procedurę read bez zmian, 
wymienimy natomiast klocek write. 

* - zapisz plik 

write Ida #8 

jsr open 
bmi wret 

Pierwszą czynnością po pozytyw¬ 
nym otwarciu pliku będzie zapisa¬ 
nie wiersza z rozkazem REM: 

* zapisz REM 

Ida d0_a 
sta io_adr,x 
Ida d0_a+l 
sta io_adr+l,x 
Ida <d0_l 
sta io_len,x 
Ida >d0_l 
sta io_len+l,x 
jsr ciov 
bmi wret 

Podczas zapisywania pliku frag¬ 
mentami, wystarczy modyfikować 
w bloku IOCB tylko adres i długość 
danych, pozostałe bowiem parame¬ 
try system pozostawia nienaruszo¬ 
ne. Również wartość rejestru X nie 


ulega zmianie wewnątrz procedury 
CIOV. 

Dane szesnastkowe gromadzi się 
w buforze o długości jednego wier¬ 
sza. Trzeba na wstępie ustalić jego 
numer początkowy. Najprościej 
przenieść go z wiersza REM Nie 
można zadeklarować numeru star¬ 
towego po prostu Jako danych 
w buforze, ponieważ przy powtór¬ 
nym zapisie pliku numer musi wró¬ 
cić do swej pierwotnej wartości. 

* ustaw numer początkowy 
Idy #3 

setn Ida d0,y 
sta dl,y 
dey 

bpi setn 

Przygotowanie do konwersji pole¬ 
ga na ustawieniu komórki BYTE, 
która będzie używana do wskazy¬ 
wania aktualnego miejsca w wier¬ 
szu DATA gdzie wpisywane są da¬ 
ne. Ponieważ wykorzystana jest 
sprytnie procedura PHEX (wpisuje 
ona cyfry w napisie informacyjnym 
STAT), Indeks jest obliczany wzglę¬ 
dem początku tego napisu Słowo 
WORD będzie służyć jako strażnik 
końca dla adresu ADDR, którym 
przebiegać będziemy po buforze. 







inc addr+1 
jsr bout wypisz 
bpi wri gdy ok 
wret rts 

Procedura BOUT nie wysyła 
przez CIOV każdego baj tu z osob¬ 
na, lecz dopiero cały, kompletny 
wiersz. Dlatego zakończenie kon¬ 
wersji wymaga na ogół wysłania 
osta tniego, niepełnego wiersza: 

wend Ida byte 

cmp <dat +1 
jmp xclo 

Rozkaz CMP, tuż przed skokiem, 
wymusza odpowiednie zachowanie 
programu w miejscu XCLO. Rozkaz 
JMP nie zmienia przeclez znaczni¬ 
ków. Zapobiega to wysłaniu puste¬ 
go wiersza. Jeżeli zgromadzono 
w nim dopiero 0 bajtów. Sztuczka 
z zastosowaniem "<" zamiast "#" 
pozwala odwołać się do wartości, 
która nie Jest Jeszcze w tym miej¬ 
scu znana asemblerowi 

BOUT stanowi typowy przykład te¬ 
chniki, znanej jako przesyłanie z bu 
forowaniem. Polega ono na groma¬ 
dzeniu danych w wydzielonym miej¬ 
scu pamięci, zwanym buforem, a fa¬ 
ktycznym przesyłaniu Ich do urzą¬ 
dzenia wyjściowego porc jami o wiel¬ 
kości zależnej od pojemności bufora. 
Takie rozwiązanie w Istotny sposób 
przyspiesza i usprawnia operacje 
we/wy. Oczywiście typowe urządze¬ 
nia zewnętrzne wyposażone są 
w swe własne bufory, mamy tu więc 
do czynienia z buforowaniem wie¬ 
lopoziomowym. Dopóki zatem wpisy¬ 
wanie cyfr nie dojdzie r* końca bufo¬ 
ra (strażnikiem Jest etykieta REM_), 
nie ma potrzeby wywoływać CIOV. 

* zapisz bajt 
bout inc byte 

Idy byte 
inc byte 
jsr phex 
Ida byte 
cmp <rem -1 

xclo bcc wrok 

Wypełnił się bufor! Trzeba zwię¬ 

kszyć numer wiersza Drobne oszu¬ 
stwo polega na zwiększeniu 
o 1 trzycyfrowego licznika. Czwar¬ 
ta cyfra - zero jest tylko atrapą 
1 nigdy nie ulega zmianie. 

* kolejny numer wiersza 

Idy #2 

advn clc 

Ida #1 


adc dl,y 
sta dl,y 
cmp #'9'+l 
bcc pdln 
Ida #'0' 
sta dl,y 
dey 

bpi advn 

jmp quit za wiele! 


wrok Idy #1 
rts 

Podanie w io_len zerowej długości 
danych spowoduje przesłanie poje¬ 
dynczego znaku, który znajduje się 
w akumulatorze. Dane adresowe na¬ 
leży uzupełnić o 


999 wierszy danych umożliwia za¬ 
kodowanie programu o długości 
ponad 12 KB. Kto uważa, że to mało, 
może zmodyfikować program, wpro¬ 
wadzając dodatkową cyfrę lub zago¬ 
spodarowując wspomnianą wyżej 
atrapę. We fragmencie wywołującym 
CIOV musimy pamiętać, że nie za 
wsze wiersz Jest pełny, trzeba więc 
obliczyć Jego aktualną długość. 

* zapisz wiersz 
pdln sec 

Ida byte 
snc <dl-stat 
sta io_len,x 
jsr ciov 
bmi wret 
Ida #0 

sta io_len,x 
Ida #eol 
jsr ciov 
bmi wret 
Ida <dat_ 
sta byte 


d0_a dta a(d©) 

dl_a dta a(dl) 

Umieszczamy je oczywiście przed 

dta a(0) 

Blok danych tekstowych wymaga 
kilku zmian. Na wszelki wypadek 
przytoczę go w całości, by było jas¬ 
ne co powielić a co poprawić. 

*-dane 


data 


stat 

use 


equ * 
dta b(eol) 

dta c' TA Hex DATA '* 
dta b(eol) 

dta c'Source:',b(eol) 
dta c'Target:*,b(eol) 
dta c'1/O error!' 
dta b(eol) 

dta c'Out of memory!' 
dta b(eol) 
dta c'Used $' 
equ *-stat 

dta c'.... bytes of $' 
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taj 




siz 

equ 

*-stat 



dta 

c r . * •. 

',b(eol) 

dl 

dta 

c' . . . . 

DATA ' 

dat 

equ 

org 

*-stat 

*+26 


dl _! 

equ 

*~dl 


rem 

equ 

*-stat 


d0 

dta 

C'1000 

REM',b(eol) 

d0_l 

equ 

*-d0 


dnam 

dta 

c'D0:' 


text 

org 

*+120 


buff 

egu 

* 



I to wszystko. Każdy z trzech omó¬ 
wionych programów (Copy, Eol Ea- 
tcr Hex DATA) można bez trudu po¬ 
łączyć z Reloeator-em, który zapew¬ 
nia optymalne wykorzystanie pamię¬ 
ci komputera. Relokator był juz pre¬ 
zentowany w TA Dziś wersja niezna¬ 
cznie zmodyfikowana. Umożliwia 
ona powtórne uruchomienie progra¬ 
mu po powrocie do DOS-u (np. 2.5 
z CP) lub COS-u, rozkazem RUN. 
Wykorzystane zostało słowo INITAD 
($2E2), dzięki czemu działalność Re- 
lokatora ma miejsce PRZED faktycz¬ 
nym uruchomieniem programu. Re¬ 
lokator oblicza adres, pod którym 
znajdzie się program i wpisuje go do 
RUNAD ($2E0). To sprawia, ze DOS 
na ogół samoczynnie uruchomi nasz 
program od tego adresu. Również 
ponowne "wskoczenie* do programu 
przez RUN (w wielu systemach Jest 
taka opcja) odbędzie się z wykorzy¬ 
staniem tego adresu. 

MAIN_ EQU main 

USER EQU rret 


* _ * 

* * 

* Relocator 1.1 * 

* * 

* by JBW * 

* * 

* 1992-02-10 * 

* * 

* _ * 


★_ 

page 0 - 


BYTE 

EQU 

$CE 


DATF 

EQU 

$CF 


DIST 

EQU 

$D0 

(2) 

SRCE 

EQU 

$D2 

(2) 

DEST 

EQU 

$D4 

(2) 

ADDR 

EQU 

$D6 

(2) 


*- system 


RUNA 

EQU 

$2E0 

(2) 

INIA 

EQU 

$2E2 

(2) 

MELO 

EQU 

$2E7 

(2) 


* -move- 

MOVE EQU * 

JSR USER 

* elear data flag 

LDA #0 
STA DATF 

* destination 

LDA MELO 
STA DEST~ 

STA RUNA 
LDA MELO_ +1 
STA DEST +1 
STA RUNA +1 

* codę source, distance 

SEC 

LDA <MAIN 

STA SRCE_ 

SBC DEST _ 

STA DIST_ 

LDA >MAIN 
STA SRCE +1 
SBC DEST_+1 
STA DIST +1 


*** move process 

*** 


LDY 

#0 



BEQ 

MOVL 

(JMP 

SEDA 

SEC 




ROR 

DATF 


MOVL 

EQU 

* 



LDA 

SRCE 



CMP 

<MOVE 



LDA 

SRCE ■ 

+1 


SBC 

>MOVE 



BCC 

DCHK 


* done 

j 




RTS 



* data 

flag check 


DCHK 

BIT 

DATF 



BVS 

MOVl 



BMI 

TPE3 


INST 

EQU 

* 



LDA 

(SRCE 

_>' Y 


STA 

BYTE 



STA 

(DEST 

J' Y 


JSR 

INCA 



TAX 




BEQ 

SEDA 



* instr type check 


CMP #$20 JSR 

BEQ TPE3_ 

CMP #$40 RTI 

BEQ MOVL_ 

CMP #$60 RTS 

BEQ MOVL_ 

AND #$0D 

CMP #$08 x8,xA 

BEQ MOVL_ 

BCC MOVl_ 

TXA 

AND #$1F 

CMP #$09 
BEQ MOVl_ 

* 3-byte instruction 


TPE3 

EQU 

* 


LDA 

(SRCE _),Y 


INY 



CMP 

<MAIN 


LDA 

(SRCE_) ,Y 


DEY 



SBC 

>MAIN 


BCC 

MOV2 


LDA 

(SRCE_) ,Y 


INY 



CMP 

<MOVE +1 


LDA 

(SRCE_),Y 


DEY 



SBC 

>MOVE +1 


BCS 

MOV2 

* alter abs adresses 


LDA 

DIST 


LDX 

DIST +1 


BCC 

MOVA 

* move 

w/o changes 

MOV2_ 

BIT 

DATF 


BMI 

SEDA 


LDA 

#0 


TAX 


* move 

2 b address 

MOVA 

EQU 

* 


STA 

ADDR 


STX 

ADDR +1 


SEC 



LDA 

(SRCE ),Y 


SBC 

ADDR 


STA 

(DEST ),Y 


JSR 

INCA 


LDA 

(SRCE ),Y 


SBC 

ADDR +1 


JMP 

SD 

* move 

lb data 

MOVl 

EQU 

* 


LDA 

(SRCE ),Y 

SD_ 

STA 

(DEST ),Y 


JSR 

INCA 


JMP 

MOVL 


*- inc SRCE,DEST - 

INCA INC SRCE_ 

BNE *+4 

INC SRCE_+1 

INC DEST_ 

BNE *+4 

INC DEST_+1 

RTS 


*- start - 

ORG INIA_ 

DTA A(MOVE ) 


END 

Kto rezygnuje z użycia Relokatora, 
może obniżyć adres podany w po¬ 
czątkowym ORG, by uzyskać nieco 
więcej wolnej pamięci dla programu 


Janusz B. Wiśniewski 
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Print 8 


tajei 




Dziś - remanent w redakcyjnej szufladzie Garść 
miniaturek, które z różnych powodów nie zmieści 
ły się w poprzednich numerach. Potwierdza się 
zasada, że każdy klejnot musi kiedyś zalśnić peł¬ 
nym blaskiem. 

PM - Efekt 


IB 1 DIM A$(20):G=8:L=40:P=2:A$=”TAJEMNIC 
E ATARI”:H=80:X=10:Y=10:GOSUB 2:END 
YR 2 U=H/40:D=U-INT(U):Z=PEEK(756):GRAPHI 
CS G:W=FEEK(88)+256*PEEK(89)+L/8+Y*40 
ST 3 FOR G=1 TO LEN(A$):E=ASC(A$(G)):IF E 
>96 THEN T=E:GOTO 4 

YG 4 Q=ASC(A$(G)):T=(Q+(Q—64))/2:FOR S=Z* 
256+T*8 TO Z*256+T*8+7:FOR K=1 TO P 
ZX 5 POKE W,PEEK(S):W=W+H:NEXT K:NEXT S:W 
=W-(H*8+1)*P+2*F:NEXT G:RETURN 

Kolejne rozwiązanie zagadnienia wyświetlania tekstu 
w trybie graficznym nr 8 Budowa programu Wojcie¬ 
cha Litkiewicza z Gdyni umożliwia zmianę uzyskiwa¬ 
nych efektów w szerokim zakresie poprzez dobór para- 


HH 1 POKE 106,PEEK(106)-4 rGRAPHICS 0:PMB= 
PEEK(106):FOR I=PMB*256+384 TO FMB*256 
+1024:POKE I,170:NEXT I 
FZ 2 POKE 54279,PMB 

YN 3 POKE 623,1+16:POKE 53277,3:POKE 5325 
6,3:POKE 53257,3:POKE 53258,3:POKE 532 
59,3:POKE 53248,112:POKE 53260,255 
CM 4 POKE 53249,48:POKE 53250,80:POKE 532 
51,144:POKE 53255,176:POKE 53254,184:P 
OKE 53253,192:POKE 53252,200 
QL 5 POKE 559,46:POKE 704,8:POKE 706,6:PO 
KE 707,10:FOKE 705,4:POKE 711,12:POKE 
710,0:POKE 709,15 

Interesujący sposób wykorzystania grafiki P/M pokazu¬ 
je program Pawła Kalinowskiego z Pułtuska. Równie 
ciekawy, a może nawet ciekawszy efekt można uzyskać, 
wpisując w wierszu 2 liczbę 224 lub 204 zamiast PMB 


metrów np. G. L, P, H. 




Kobra 


JO 1 GRAPHICS 5:COLOR 2:PLOT 0,0:DRAWTO 7 
9,0:DRAWTO 79,39:DRAWTO 0,39:DRAWTO 0, 

0:COLOR 1:X=39:Y=20:DX=1:? "KOBRA 
YK 2 X=X+DX:Y=Y+DY:P=P+1:LOCATE X,Y,S:IF 
S>0 THEN ? CHR$(253);“ ”;P; m Pkt":FOR 
S=1 TO 900:NEXT S:RUN 
UR 3 PLOT X,Y:S=STICK(0):V=0:H=(S=7)-(S=l 
1):IF NOT H THEN V=(S=13)-(S=14):IF V 
THEN DY=V:DX=0:GOTO 2 
L'H 4 ON H=0 GOTO 2 :DX=H:DY=0:GOTO 2 

Jerzy Kasenberg z Wrocławia. Motyw jakby znajo¬ 
my. Tym razem wyścig z samym sobą: jak długo może 
się rozrastać wąz, by nie nadepnąć sobie na ogon lub 
nie wyrżnąć łbem w ścianę klatki? 


P-Lot 


HO 1 GRAPHICS OsPOSITION 6,0:? "PUNKTY:"; 
P i K-38: Y-INKRND tOJ*26) +1: 5=0: C=10: U-2 
2:POKE 710,o:POKE 752,1 
PH 2 H=H-1:P0SITI0N X,Y:? "SPOSITION 

... C,V:? "f":IF 

V=Y ANO C>=X AND C<=X+2 THEN P=P+1:G0 
TO 1 

01 3 IF K=0 OR U=1 THEN P=P~1:G0T0 1 

CE i IF 5=0 THEN 5=STRIG(0)=0 
FG 5 GOTO 2 


Dziś, w czasach (oby jak najdłuższego) pokoju jedy¬ 
nym sposobem postrzelania do nieprzyjaciół staje się 
komputer. W programku Macieja Zwolińskiego 
z Wrocławia wcielasz się w asa obrony przeciwlotni¬ 
czej. Nie pozwól im przelecieć! 
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Przedstawiony poniżej program pt. 'SAMOTNIK" Jest 
komputerową wersją popularnej francuskiej gry plan¬ 
szowej pod tym samym tytułem Celem gry Jest pozo¬ 
stawienie na planszy jednego pionka, bądź osiągnięcie 
z góry ustalonego Ich układu Pionek można przesunąć 
na Inne miejsce wyłącznie "zbijając" Inny, a ruch możli¬ 
wy jest tylko w plonie lub poziomie. 

Po uruchomieniu programu ukazuje się czołówka, 
a następnie właściwa plansza gry. Na ekranie widoczne 
są trzy okienka: Największe - to plansza o rozmiarach 
7x7 pól, średnie zawiera menu programu, a najmniej¬ 
sze - liczbę ustawionych pionów. W menu po prawej 
stronie widoczny Jest "ptaszek" który wskazuje wybie¬ 
raną opcję. Można go przesuwać przy pomocy joysti¬ 
cka Wyboru dokonujemy przy pomocy przycisku flre. 

Opcja "Plansza" uruchamia edytor planszy. Mamy 
dzięki temu możliwość stworzenia dowolnego układu 
początkowego w grze. Joystick przesuwa kwadratowy 
kursor po całym polu gry. Naciskając flre można na 
danym polu ustawić pionek (kółkol, opróżnić je (krzy¬ 
żyk), bądź w ogóle wyłączyć je z gry (puste miejsce), 
Naciśnięcie START pozwala wrócić do menu - tylko 
wtedy jednak, gdy na planszy możliwe Jest wykonanie 
posunięcia. Plansze można zachować i odczytać przy 
pomocy funkcji LOAD/SAVE z menu 

Grę rozpoczynamy po wybraniu opcji "Gra". Podo¬ 
bnie Jak w edytorze planszy - pojawia się kwadratowy 
kursor, który można poruszać joystickiem po całym 


polu Naciskając flre wybieramy plon, którym będziemy 
wykonywać ruch - ramka ekranu zmieni jasność. Na¬ 
stępne naciśnięcie flre powoduje przestawienie pionu. 
Jeśli ruch jest nieprawidłowy - komputer sygnalizuje 
to sygnałem dźwiękowym. Gra toczy się do momentu, 
w którym gracz nie ma już możliwości wykonania ru¬ 
chu. Przez cały czas komputer podaje liczbę pionów na 
planszy. Zmagania można przerwać w dowolnym mo¬ 
mencie naciśnięciem klawisza Start 

W menu dostępne są jeszcze dwie opcje: Restart 
1 Koniec - pierwsza powtórnie uruchamia program, 
druga kończy z nim pracę 1 przekazuje sterowanie do 
Interpretera Basicu. 

Życzę wszystkim powodzenia 1 cierpliwości - bo gra 
Jest naprawdę trudna. A wszystkim niecierpliwym pole¬ 
cam "Przewodnik gier" Lecha Pljanowsklego 


Program napisany jest w Turbo-Basicu. 


YW 

10 --- 

RW 

20 REM Samotnik - gra dla 1 osoby 

NE 

30 REM Program : Maciej Czarnota 

PP 

40 REM Data : 1992-01-26 

ZA 

50 — 

AQ 

60 GRAPHICS 0:POKE 710,0:POKE 752,1:PO 
SITION 14,6:? "SAMOTNIK":POSITION 4,10 
:? "Gra logiczna dla jednej osoby" 

KP 

70 POSITION 7,13:? "Autor : Maciej Cza 
rnota”:POSITION 6,15:? "(c) 1992 Taje 
mnice Atari" 

VD 

80 POSITION 2,20:? "Naszykuj joystick 
i stuknij START":REPEAT :UNTIL PEEK(53 

279)=6 

BQ 

90 GOSUB 1310:GRAPHICS 0:CLR :END 

YG 

100 REM Rysuj plansze 

HY 

110 PROC PLANSZA 

ZX 

120 POKE 559,0:RESTORE 1590 

VP 

130 DO 

KI 

140 READ X,Y:IF X*Y<0 THEN EXIT 

VE 

150 COLOR 1:PLOT X,Y 

IU 

160 DO :READ X,Y:IF X*Y<0:EXIT :ENDIF 
:DRAWTO X,Y:LOOP 

RI 

170 LOOP 

PX 

180 RESTORE 1660;FOR 1=1 TO 8:READ X,Y 
,T$:TEXT X,Y,T$:NEXT I 

RL 

190 POKE 559,34 

VK 

200 ENDPROC 

OX 

210 REM Ustaw piony na planszy 

MH 

220 PROC SETPION 

LB 

230 FOR X=1 TO 7:FOR Y=1 TO 7:EXEC GET 
CH:EXEC USTAW:NEXT Y:NEXT X:EXEC COUNT 
:EXEC PIPR 

VS 

240 ENDPROC 

DR 

250 PROC USTAW 

TG 

260 PX=20+X*20:PY=Y*20:TEXT PX-4,PY-4, 

" ":TEXT PX-3,PY-3," ":COLOR 1 

XL 

270 ON RO-48 EXEC XPOL,PION 

WA 

280 ENDPROC 

GX 

290 REM Pole pust - X 

LO 

300 PROC XPOL 

RN 

310 PLOT PX-3,PY-3:DRAWTO PX+3,PY+3:PL 

OT PX+3,PY-3:DRAWTO PX-3,PY+3 

VP 

320 ENDPROC 

KL 

330 REM Pion 

GV 

340 PROC PION 

JQ 

350 CIRCLE PX,PY,4 
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taie 



vx 

360 ENDPROC 



UH 

870 REM Gamę over 

FD 

370 REM Podprogram obsługi joysticka 



DX 

880 ? " Koniec gry”:FOR J= 

RL 

380 PROC MOVEJOY 




1 TO 5:SO=80:EXEC BELL:NEXT J 

WD 

390 DO 



CU 

890 IF PI=1 THEN ? ” GRATULACJE ! 

TK 

400 COLOR 1:PX=20+X*20:PY=Y*20:EXEC SE 




Wygrałeś !!!":FOR J=0 TO 5:SO=40+J*20 


TRAM 




:EXEC BELL:NEXT J 

YA 

410 REPEAT :A=STICK(0):B=STRIG(0):C=PE 



VJ 

900 EXEC FIRE:PL$=RE$:EXEC SETPION:CLS 


EK(53279):UNTIL A<>15 OR B<>1 OR C<>7 



VT 

910 ENDPROC 

XR 

420 COLOR 0:EXEC SETRAM 



VT 

920 REM Poruszanie pionami 

NF 

430 IF B=0 OR C<>7 THEN EXIT 



KX 

930 PROC MGVEPIO 

EL 

440 IF A=14 THEN Y=Y-1:IF Y<1 THEN Y=7 



ZN 

940 IF ZX=0 OR ZY=0 THEN 1010 

co 

450 IF A=13 THEN Y=Y+1 : IF Y>7 THEN Y=1 



DX 

950 MX=X-ZXtMY=Y-ZY : IF ABS ( MX-MY ) <>2 O 

SD 

460 IF A=7 THEN X=X+1 : IF X>7 THEN X=1 




R MX*MY<>0 THEN SO=121:EXEC BELL:GOTO 

ZN 

470 IF A=11 THEN X=X-1:IF X<1 THEN X=7 




1000 

XP 

480 FOR 1=0 TO 3 : SOUND 0,8*A,8,10 : NEXT 



PC 

960 TX=X:TY=Y:X=ZX+(MX/2 ) :Y=ZY+(MY/2) : 


I : SOUND 




EXEC,.GETCH : IF ROO50 THEN SO=121:EXEC 

RP 

490 LOOP 




BELL:GOTO 1000 

BT 

500 SO=255:EXEC BELL 



EJ 

970 RO=49:EXEC USTAW:EXEC ZNAK:X=ZX:Y= 

VP 

510 ENDPROC 




ZY:EXEC USTAW:EXEC ZNAK 

VU 

520 REM Czy jest możliwy ruch? 



BE 

980 RO=50:X=TX:Y=TY:EXEC USTAW:EXEC ZN 

NC 

530 PROC POSSIB 




AK 

CU 

540 NO=0:FOR 1=1 TO 7:PT$=PL$ ( 1*7-6,I* 



CT 

990 PI=PI-1:EXEC PIPR 


7 ) :EXEC CHECK : IF A<>0 OR BO0:GOTO 560 



OM 

1000 EXEC ZERO 


:ENDIF :NEXT I 



YF 

1010 ENDPROC 

SK 

550 FOR 1=1 TO 7 : FOR J=0 TO 6:PT$(J+1, 



DJ 

1020 PROC POLPIO 


J+l)=PL$ ( I+J*7,I+J*7 ) :NEXT J:EXEC CHEC 



FD 

1030 IF ZX<>0 OR ZYO0 THEN SO=255:EXE 


K : IF A<>0 OR BO0:GOTO 560:ENDIF :NEXT 




C BELL:EXEC ZERO:GOTO 1050 


I:NO=l 



JU 

1040 ZX=X : ZY=Y : SETCOLOR 4,0,4 

VZ 

560 ENDPROC 



YR 

1050 ENDPROC 

FN 

570 PROC CHECK:A=INSTR(PT$,"122" ) :B=IN 



BP 

1060 REM Podprogram ustawiania planszy 


STR ( PT$,"221"):ENDPROC 



OP 

1070 PROC SETBOARD 

RT 

580 REM Kasuj ruch 



YD 

1080 X=1 : Y=1 

MP 

590 PROC ZERO : SETCOLOR 4 ,0,0:ZX=0:ZY=0 



EB 

1090 EXEC MOVEJOY : IF C<>7 THEN GOTO 11 


: ENDPROC 
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TA 

600 REM Wez znak spod kursora 



ZA 

1100 EXEC GETCH:RO=RO+l : IF RO>50 THEN 

QA 

610 PROC GETCH : ZN=X+Y*7-7:RO=ASC ( PL$ ( Z 




RO=4 8 

N,ZN )): ENDPROC 



OT 

1110 PL$ ( ZN,ZN ) =CHR$(RO ) :EXEC USTAW:GO 

01 

620 REM Nowy znak pod kursorem 




TO 1090 

XR 

630 PROC ZNAK:ZN=X+Y*7-7:PL$(ZN,ZN)=CH 



xs 

1120 NO=0:EXEC POSSIB:IF NO THEN FOR J 


R$(RO):ENDPROC 




=0 TO 4:SO=30+J*50:EXEC BELL:NEXT J:GO 

WU 

640 REM Policz wszystkie piony 




TO 1090 

zs 

650 PROC COUNT:PI=0:FOR 1=1 TO 49:IF P 



PS 

1130 EXEC COUNT:EXEC PIPR 


L$(I,I)="2":PI=PI+1:ENDIF :NEXT I:ENDP 



YQ 

1140 ENDPROC 


ROC 



IO 

1150 REM Load 

NW 

660 REM Wydrukuj liczbę pionow 



DN 

1160 PROC LOAD 

§D 

670 PROC PIPR:TEXT 280,140," ":COLOR 



BT 

1170 TRAP 1250:EXEC GETFIL:IF T$<>"" T 

1:TEXT 280,140,PI:ENDPROC 




HEN OPEN #1,8,0,T$:? #l;PL$:CLOSE #1 

XD 

680 REM Ptaszek do menu - rysu 3 



ZC 

1180 ENDPROC 

QK 

690 PROC PLMEN:PLOT 295,Y:DRAWTO 298,Y 



PZ 

1190 REM Save 

+3:DRAWTO 303,Y-2:ENDPROC 



KL 

1200 PROC SAVE 

SU 

700 REM Rysuj kuror 



YZ 

1210 TRAP 1250:EXEC GETFIL:IF T$<>"" T 

UG 

710 PROC SETRAM:PLOT PX~7,PY-7:DRAWTO 




HEN OPEN #1,4,0,T$:INPUT #l,PL$:CLOSE 


PX+7,PY-7:DRAWTO PX+7,PY+7:DRAWTO PX-7 




#1:EXEC SETPION 


,PY+7:DRAWTO PX-7,PY-7:ENDPROC 



PR 

1220 EXEC COUNT:EXEC PIPR 

BQ 

720 REM Daj glos 



YP 

1230 ENDPROC 

EM 

730 PROC BELL:FOR 1=15 TO 0 STEP -0.5: 



GV 

1240 REM Obsługa bledow we/wy 


SOUND 0,SO,14,I:NEXT I:SOUND :ENDPROC 



FG 

1250 CLOSE #1:? CHR$(253);"ERROR- "; 

TG 

740 REM Czekaj na fire 




ERR:EXEC FIRE:PAUSE 20:ENDPROC 

AC 

750 PROC FIRE 



GO 

1260 REM Wez nazwę pliku 

SP 

760 ? :? " Nacisnij FIRE":R 



IT 

1270 PROC GETFIL:POKE 752,0:INPUT "Pod 


EPEAT :UNTIL STRIG(0)<>1:CLS 




aj nazwę pliku >",T$:POKE 752,1:CLS :E 

WD 

770 ENDPROC 




NDPROC 

DP 

780 REM Tu jest podprogram gry 



ET 

1280 REM Restart 

HR 

790 PROC PLAY 



KD 

1290 PROC REST:RUN :ENDPROC 

HX 

800 RE$=PL$:X=1:Y=1:ZX=0:ZY=0 



RM 

1300 REM Czolowka 

VS 

810 DO 



ZD 

1310 DIM PL$(49),RE$(49),PT$(7),N$(20) 

DB 

820 EXEC POSSIB:IF NO THEN EXIT 




,T$(20):HSC=0:MEN=1 

7.K 

830 EXEC MOVEJOY:IF C<>7 THEN EXIT 



PZ 

1320 RESTORE 1510:FOR 1=1 TO 7:READ PT 

IA 

840 EXEC GETCH 




$:PL$(1*7-6,1*7)=PT$:NEXT I 

RC 

850 ON RO—48 EXEC MOVEPIO,POLPIO 



EY 

1330 GRAPHICS 8:POKE 752,l:POKE 710,0: 

RN 

860 LOOP 




EXEC PLANSZA:EXEC SETPION 
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BZ 1340 REM Obsługa menu 

RB 1570 DATA 0022200 

KL 1350 DO 

XM 1580 REM Dane dla rysunku na ekranie 

KO 1360 DO 

TO 1590 DATA 20,10,180,10,180,150,20,150, 

BZ 1370 Y=34+MEN*10:COLOR 1:EXEC PLMEN 

20,10,1,-1,15,5,185,5,185,155,15,155,1 

BY 1380 REPEAT :A=STICK(0):B=STRIG(0):UNT 

5,5,-1,1 

IL A<>15 OR BOllCOLOR 0:EXEC PLMEN 

i ba 1600 DATA 20,10,15,5,-1,1,180,10,185,5 

WS 1390 SO=A*50:EXEC BELL 

1 ,-1,1,180,150,185,155,-1,1,20,150,15,1 

HV 1400 IF A=14 THEN MEN=MEN-1:IF MEN<1 T 

55,-1,1 

HEN MEN=6 

RB 1610 DATA 210,18,310,18,310,105,210,10 

m 1410 IF A=13 THEN MEN=MEN+1:IF MEN>6 T 

5,210,18,-1,1,205,13,315,13,315,110,20 

HEN MEN=1 

5,110,205,13,-1,1 

FS 1420 IF B=0 THEN EXIT 

TB 1620 DATA 210,18,205,13,-1,1,310,18,31 

MD 1430 LOOP 

- 5,13,-1,1,310,105,315,110,-1,1,210,105 

BR 1440 ON MEN EXEC PLAY,SETBOARD,LOAD,SA 

,205,110,-1,1 

VE,REST:IF MEN=6 THEN EXIT 

IX 1630 DATA 200,135,314,135,314,152,200, 

MJ 1450 LOOP 

152,200,135,-1,1,195,130,319,130,319,1 

AZ 1460 RETURN 

j 57,195,157,195,130,-1,1 

CT 1470 REM Plansza - dane : 

OB 1640 DATA 200,135,195,130,-1,1,314,135 

DP 1480 REM 0 - pole niedostępne 

,319,130,-1,1,314,152,319,157,-1,1,200 

OR 1490 REM 1 - pole puste 

,152,195,157,-1,1 

WD 1500 REM 2 - pion na polu 

J3 1650 DATA 247,138,245,140,-1,1,-1,1 

QR 1510 DATA 0012200 

XK 1660 DATA 245,25,Menu,220,40,Gra,220,5 

TL 1520 DATA 0222220 

0,Plansza,220,60,Save,220,70,Load,220, 

VS 1530 DATA 2222222 

80,Restart,220,90,Koniec 

W 1540 DATA 2222222 

CD 1670 DATA 210,140,Pionow : 

VY 1550 DATA 2222222 


TX 1560 DATA 0222220 




U schyłku II wojny światowej 
alianci zaniepokojeni mnożącymi 
się pogłoskami o tworzonej przez 
naukowców Hitlera superbroni, po¬ 
wierzają swemu najlepszemu agen¬ 
towi J-23 tajną misję zdobycia jej 
planów Zadanie to jest niesłycha¬ 
nie trudne: cała dokumentacja 
ukryta jest w pilnie strzeżonej pod 
ziemnej bazie (będącej tajną kwate¬ 
rą samego Hitlera), której koryta¬ 
rze tworzą skomplikowany labirynt 
ciągnący się przez wiele kilome¬ 
trów. 

W celu ułatwienia J-23 (działają¬ 
cemu wśród Niemców pod nazwi¬ 
skiem Hans Kloss) dokonania tego 
wyczynu, wywiad aliancki sporzą¬ 
dził mapę Wolfschanze - taka na¬ 
zwa została nadana bazie. Dane do 
niej zdobył dzięki sobie tylko zna¬ 
nym sposobom (każdy szanujący 
się wywiad ma takie sposoby) 

Tu niewielka uwaga dla tych spo¬ 
śród naszych czytelników, którzy 
Jeszcze nie próbowali zmierzyć się 
z niebezpieczeństwami Wilczego 
Szańca: spróbujcie najpierw wypeł¬ 
nić misję samodzielnie, nie czytając 
dalszej części tego tekstu Zapew¬ 
niamy, ze dostarcza to dużo wię¬ 
kszej satysfakcji. Po mapę i objaś¬ 


nienia do niej sięgnijcie wtedy, gdy 
z czystym sumieniem stwierdzicie, 
ze sami nie dacie sobie rady. 

Na mapie zaznaczone zostały 
miejsca, w których agent może zna¬ 
leźć pożywienie - pokonywanie ko¬ 
lejnych poziomów 1 unikanie śmier¬ 
cionośnych pułapek pochłania 
mnóstwo energii. Traci się ją rów¬ 
nież w każdym bezpośrednim zetk¬ 
nięciu z pojazdem-pułapką, które 
jeżdżą po korytarzach Wilczego 
Szańca. 

Na mapie zaznaczono również 
umiejscowienie sterowanych foto¬ 
komórką karabinów maszyn owych 
oraz ich wyłączników, a także poło¬ 
żenie sejfów, w których ukryte są 
plany i opisy do nich, widoczna Jest 
również tajna komnata, gdzie prze¬ 
chowywana Jest pieczęć, bez której 
misja nie może zostać zakończona. 

W grze istnieje kilka niebezpiecz¬ 
nych miejsc, w których Kloss powi¬ 
nien szczególnie się skoncentro¬ 
wać. Zostały one na mapie oznako¬ 
wane przy pomocy liter. Literą 
A zaznaczono odcinek Jednego 
z poziomów, z którego agentowi nie 
wolno zejść niżej, gdyż dostanie się 
w ślepy zaułek bez wyjścia Pod¬ 
czas opadania szybem oznaczonym 


literą B, należy trzymać wciśnięty 
flre, w przeciwnym razie nie uda 
się złapać klucza, bez którego nie¬ 
możliwe Jest kontynuowanie misji. 
Gracz powinien także bardzo uwa¬ 
żać, by nie otworzyć drzwi zazna¬ 
czonych literą C (łatwo to zrobić 
niechcący). Jeżeli przypadkiem nie 
zastosuje się do tej rady,- utraci 
klucz niezbędny mu na innym po¬ 
ziomie. 

Jeżeli gracz wcielony w bohater¬ 
skiego agenta uzna, że zapasy żyw¬ 
ności nagromadzone w bazie nie 
dostarczą mu dostatecznej ilości 
energii niezbędnej do zakończenia 
gry, może skorzystać z hasła, któ¬ 
rym są słowa HEAVY METAL Nale¬ 
ży "wystukać" je na klawiaturze, 
wtedy w czołówce gry po obu stro¬ 
nach napisu "Hans Kloss" pojawia¬ 
ją się rewolwery, i gracz otrzymuje 
nieograniczoną ilość dostarczające¬ 
go energii pożywienia. 

Mamy nadzieję, że dzielny agent 
wyposażony w tę mapę i komenta¬ 
rze do niej zdoła pokonać wszelkie 
czyhające na niego zasadzki. Powo¬ 
dzenia! 


Basta 
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Od dwóch tygodni jestem użytkownikiem edytora te¬ 
kstu PANTHER autorstwa JBW (znanego chyba użytkow¬ 
nikom ATARI) rozprowadzanego przez L.K. Avalon 
Chciałbym podzielić się kilkoma uwagami dotyczącymi 
tego edytora. Na początek uwagi krytyczne. Edytor Pan 
ther w odróżnieniu od innych znanych ml edytorów zmu 
sza do pilnego śledzenia ekranu, gdyż po zakończeniu pl 
sania w linii nie przenosi tekstu automatycznie do nastę 
pnej linii. Parokrotnie w czasie pisania zdarzyło ml się 
zagapić 1 pisać, pomimo ze tekst nie był juz przyjmowany 
przez edytor Wydaje się, że sensowną rzeczą byłoby 
umieszczenie "dzwonka" na końcu linii (podobnie Jak Jest 
w maszynie do pisania). Nie znam powodu, dla którego 
autor zastosował takie rozwiązanie, ale wydaje ml się, ze 
ma ono sporo minusów. Na niewielki plus można zaliczyć 
fakt, że tekst napisany na ekranie zostanie w tej samet 
formie wydrukowany. 

Brak także w edytorze funkcji automatycznie forma 
tujących tekst, takich Jak centrowanie 1 wyrównywani 
marginesów. Tak więc układ całego tekstu należy 
stworzyć ręcznie. Poprawki robione wewnątrz napisa¬ 
nego tekstu zmuszają do poprawiania całego ukadu te¬ 
kstu, co w przypadku edytora tekstu nie jest zaletą. 

Niezbyt szczęśliwym rozwiązaniem jest umieszczenie 
funkcji sterujących kursorem w "Ws modę". W przy¬ 
padku używania polskich znaków (wymagających na¬ 
ciśnięcia klawisza control wraz ze znakiem alfanume¬ 
rycznym) przesunięcie kursora na początek lub koniec 
wiersza Jest raczej kłopotliwe. Podobnie Jest z kasowa¬ 
niem wiersza lub słowa oraz z przesunięciem kursora 
na początek lub koniec tekstu. Być może Jednak moż¬ 
na się do tego przyzwyczaić. 

Po wiadomościach złych kolej na wiadomości dobre. 
Reklama, zamieszczona na ostatniej stronie Tajemnic 
Atari, mówiąca, że Panther współpracuje z każdą dru¬ 
karką, nie jest przesadzona. W oparciu o Instrukcję 
drukarki przy pomocy plików tekstowych można "wy¬ 


cisnąć" z drukarki wszystko, co tylko potrafi. Jestem 
posiadaczem szesnastolgłowej drukarki TXP-1000 fir¬ 
my General Electric, i dotychczas nie udało ml się uzy¬ 
skać polskich znaków przy pomocy żadnego edytora. 
Przy pomocy Panthera Jest to bardzo proste (plik 
TXP1000P.CVN pokazany Jest na sąsiedniej stronie). 

Bardzo dobre wrażenie robi menu oraz stan edytora 
umieszczone w dwóch górnych liniach. Pozwalają one 
uzyskiwanie różnych funkcji w bardzo łatwy sposób. 

Bardzo dobra Jest także współpraca z Dosem "każdej 
maści" (dotyczy wersji dyskowej). Próbowałem z kilko¬ 
ma Dosaml 1 w każdym przypadku wyjście do Dosa 
1 powrót do programu kończyły się sukcesem. 

Na uwagę zasługuje także Instrukcja do programu, 
która Jest napisana Jasno 1 przystępnie. 

Reasumując należy stwierdzić, że Panther jest pomi¬ 
mo wymienionych wad (1 być może Innych nie wymie¬ 
nionych) przydatnym programem dla osób posiadają¬ 
cych drukarki. Gdyby autor zamierzał napisać nastę¬ 
pną wersję programu, to moją sugestią byłoby oddzie¬ 
lenie edycji tekstu od formatowania do wydruku, tzn. 
nie umieszczanie w czasie edycji tekstu znaków końca 
linii w tekście, gdyż to jest głównym powodem wymie¬ 
nionych przeze mnie wad. 

Jako załącznik przesyłam napisany w Turbo Baslcu 
plęclollnljkowy program CVNMAKER TB 

SI 1 DIM A$(99),B$(99),Z(8):INPUT "FNT i 
CVN: “,A$, B$:OPEN #1,4,0,A$:BGET #1,32 
768,1024:CLOSE #l:OPEN #1,8,0,B$ 

RF 2 FOR 1=0 TO 127:G=256:FOR K=1 To 8:Z( 

K)=0:NEXT K:FOR J=0 TO 7:G=G/2:B=PEEK( 
32768+I*8+J):H=256:FOR K=1 TO 8 
KB 3 H=H/2:F=B&H:Z(K)=Z(K)+G*(F>0):NEXT K 
:NEXT J:A$= ,, \" :N=I+32* (I<64 ) -64* (I>63 
AND I<96):A$(2)=CHR$(N) 

KN 4 A$(3)=”=#27#75#8#0”:B$=A$:B$(2,2)=CH 
R$(N+128-(N=27)):FOR J=1 TO 8:L=LEN(A$ 

):M=LEN(B$):A$(L+l)=“#":B$(M+l)="#" 

IJ 5 A$(L+2)=STR$(Z(J)):B$(M+2)=STR$(255- 
Z(J)):NEXT J:? #1;A$:? #1;B$:NEXT I:CL 
OSE #1 

Program ten pozwala utworzyć sterownik drukarki 
dla dowolnego zbioru znaków ekranowych. Po urucho¬ 
mieniu programu należy wpisać nazwę zbioru znaków 
ekranu łącznie z nazwą urządzenia (w przypadku mag¬ 
netofonu C:) oraz nazwę zbioru który ma być sterowni¬ 
kiem drukarki. W linii 4 w Instrukcji 

A$(3)="#27#75#8#0" 

są umieszczone kody dotyczące grafiki dla większości 
drukarek. Pierwsze dwie liczby oznaczają druk graficz¬ 
ny, natomiast dwie następne podają ilość danych, któ¬ 
re nastąpią. W przypadku niezgodności tych kodów na¬ 
leży podać odpowiednie wartości dla posiadanej dru¬ 
karki. Uwaga! Program tworzy sterownik dla drukarek 
umożliwiających druk grafiki. Sterownik zawiera także 
znaki pisane w negatywie, pozwala więc na drukowa¬ 
nie listingów. 

Stanisław Drozda 
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ą -.-h 

: TXP-1000 PRINTER : 
+-+ 


\ą=#27#94#12#0#0#240#5#8#9#8#9#8#9#8#9#8#9#8#9#16#9#22#7#248#0#0#0#0 
\Ć-#27#94#12#0#1#240#2#8#4#4#4#4#6#4#12#4#4#4#2#8#1#16#0#0#0#0#0#0 
\Ś=#27#94#12#0#28#48#34#8#66#4#65#4#97#4#193#4#64#132#32#136#24#112#0#0#0#0#0#0 
\ę=#27#94#12#0#l#240#2#72#4#68#4#68#4#68#4#69#4#70#2#76#l#192#0#0#0#0#0#0 
\ź=#27#94#f2#0#4#4#4#12#4#20#6#36#12#68#4#132#5#4#6#4#4#4#0#0#0#0#0#0 
\ł=#27#94#12#0#0#0#0#4#64#132#65#4#127#252#4#4#8#4#0#4#0#0#0#0#0#0#0#0 
\Ń=#27#94#12#0#127#252#32#0#24#0#6#0#49#0#64#192#0#48#0#8#127#252#0#0#0#0#0#0 
\ń=#27#94#12#0#7#252#l#0#2#0#4#0#6#0#12#0#4#0#2#0#l#252#0#0#0#0#0#0 
\ó=#27#94#12#0#l#240#2#8#4#4#4#4#6#4#12#4#4#4#2#8#l#240#0#0#0#0#0#0 
\Ó“#27#94#12#0#31#240#32#8#64#4#64#4#96#4#192#4#64#4#32#8#31#240#0#0#0#0#0#0 
\Ą=#27#94#12#0#0#60#1#192#14#64#48#64#64#64#48#64#14#64#1#195#0#60#0#0#0#0#0#0 
\Ę=#27#94#12#0#127#252#65#4#65#4#65#4#65#5#65#6#65#4#64#4#64#4#0#0#0#0#0#0 
\ś=#27#94#12#0#0#48#3#8#4#132#4#132#6#132#12#68#4#68#3#72#0#48#0#0#0#0#0#0 
\Ć=#27#94#12#0#15#240#16#8#32#4#32#4#48#4#96#4#160#4#16#8#12#48#0#0#0#0#0#0 
\Ż=#27#94#12#0#64#12#64#180#64#196#64#132#65#132#70#132#72#132#80#4#96#4#0#0#0#0#0#0 
\ż=#27#94#12#0#4#4#4#12#4#20#4#36#20#68#4#132#5#4#6#4#4#4#0#0#0#0#0#0 
\Ź=#27#94#12#0#64#12#64#52#64#68#96#132#193#4#70#4#72#4#80#4#96#4#0#0#0#0#0#0 
\Ł=#27#94#12#0#127#252#1#4#2#4#4#4#8#4#0#4#0#4#0#4#0#4#0#0#0#0#0#0 

%NLQ=#27#35. nlq modę 
%INIT=#27#24. wartości początkowe 
%Don=#27#87#l. podwójna szerokość 
%Doff=#27#87#0. wyłączenie podwójnego pisma 
%Con=#15. pismo zwężone 
%Coff=#18. wyłączenie pisma zwężonego 

%RSP= #27#112. różna szerokość pisma (należy podać po tym wartość od 1 do 7) 

%Grlon=#27#42#0. przełączenie znaków graficznych o kodach od 128 do 190 na kody od 64 do 126 
%Gr2on=#27#42#l. przełączenie znaków graficznych o kodach od 192 do 254 na kody od 64 do 126 
%Groff=#27#43. wyłącza grafikę 
%FF=#12. wysuw strony 

%01=#27#48. odległość między liniami 1/8 cala 
%02=#27#49. odległość między liniami 1/9.cala 

%G3=#27#51. zmienna odległość między liniami. Należy podać wartość w granicach 1 do 255 
%LM=#27#73. lewy margines (należy podać) 

%PM=#27#81. prawy margines jw. 

%Podon=#27#45#l. włączenie podkreślenia 
%Podoff=#27#45#0. wyłączenie podkreślenia 
%Wyk“#27#83#0. wykładnik potęgi 
%lnd=#27#83#l. indeks dolny 
%Wloff=#27#84. wyłączenie indeks-w 





' Terazja! 

W sprawie Panthera otrzymałem już wiele listów 
Wszystkie uważnie czytam 1 za wszystkie serdecznie 
dziękuję. Zwłaszcza uwagi krytyczne są ml wielką po¬ 
mocą przy obmyślaniu kształtu przyszłych wersji pro¬ 
gramu Pragnę Jednak podkreślić: Panther nie Jest pro¬ 
cesorem tekstu, lecz tyko edytorem ogólnego zastoso¬ 
wania, stąd wynika podział tekstu na wiersze nie dłuż¬ 
sze niż 128 znaków. Zapewnia to zgodność ze standar¬ 
dowym formatem tekstowym ATARI (znanym z urzą¬ 
dzenia ”E;"). Jest to zarazem format akceptowany 
przez większość języków programowania. Można więc 
wykorzystać Panther przy pisaniu programów 
w BASIC-u, Pascalu, ACTION!, C, ... Taka struktura 
tekstu jest Jednym z fundamentalnych załozeń tego 
edytora 1 z pewnością nie ulegnie zmianie. Postaram 
się natomiast wzbogacić następną wersję Panther-a 
o opcję automatycznego łamania wierszy po dojściu do 
prawej krawędzi tekstu 1 ostrzegawczy dzwonek w try- 


Wiele osób skarży się, że podręcznik milczy na temat 
sposobu uzyskiwania polskich liter. Nie jest to niedo¬ 
patrzenie. Po prostu polskie litery nie są właściwością 
Panthera, lecz plików dodatkowych, które mogą być 
dowolnie zmieniane przez użytkownika. Rozkład po¬ 
lskich liter proponowany obecnie przez wydawcę opi¬ 
sany jest w pliku POLSKIE. DOC, wchodzącym w skład 
pakietu. Nie ma jednak pewności, ze standard ten po¬ 
zostanie niezmienny. Dlatego Informacje te umieszczo¬ 
no w pliku, a nie w podręczniku 

Proszę zauważyć, że Panther "sam z siebie" nie koja¬ 
rzy w żaden sposób tego, co widzimy na ekranie z tym, 
co zostanie wydrukowane Na wygląd ekranu ma 
wpływ opcja Display, natomiast na wydruk (niezależ¬ 
nie!) wybór tabeli konwersji opcją Printer. O końco¬ 
wym efekcie decyduje rozumny dobór tych ustawień. 

Gorąco proszę o nie zmuszanie Panthera do awaryj¬ 
nego łamania wierszy. Ten mechanizm nie zawsze 
działa poprawnie, co może być przyczyną kłopotów. 
W szczególności nie należy używać opcji Setup/Rłght 
w oł ecnoścl tekstu w edytorze. 


ble "bez łamania" 


Janusz B. Wiśniewski 
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"The Jet" jest kolejną grą z kolorową grafiką zamie¬ 
szczoną w "TA" (podobnie Jak "Heartllght") Pomysł gry 
nie Jest może najnowszy, lecz atrakcyjna forma w połą¬ 
czeniu ze stosunkowo niewielką długością są jej dużym 
atutem. Ponadto gra ta prawdopodobnie - w rozszerzo¬ 
nej wersji, z muzyką 1 bogatszą grafiką zostanie wyda¬ 
na przez L,K.AVALON 

Nieprzyjaciel, który od wielu lat okupował Anylandię 
wybudował przy pomocy niewolniczej pracy wielu mi¬ 
lionów pokonanych anylandczyków potężny pas umoc¬ 
nień strzegących granic zwycięskiego Eastlandu, Ko¬ 
sztowało to wiele Istnień Twoich rodaków, lecz East- 
landia poczuła się niebezpiecznie bezkarna 1 nękała 
bandyckimi rajdami kraje graniczące z nią. Pas umoc¬ 
nień był nie do zdobycia. Tworzący go system potęż¬ 
nych, wzmocnionych żelbetonem rowów, które były nie 
do pokonania przez piechotę, ani przez wojska pancer 
ne. Nie pomagał tez ostrzał artyleryjski, a użycie broni 
nuklearnej było niemożliwe ze względu na mieszkań¬ 
ców okupowanej Anylandii, Po wielu staraniach najwy¬ 
bitniejszych konstruktorów wojskowych powstał su¬ 
pernowoczesny odrzutowiec przystosowany do lotu na 
małych wyskośclaeh wyposażony w pociski, które 
w ułamku sekundy potrafią zamienić czołg w obłok pa 
ry. Dopiero wtedy można było opracować plan skutecz¬ 
nego ataku na pozycje wroga Odrzutowiec był tylko je¬ 
den 1 nie można było ryzykować Jego utraty, trzeba było 
wybrać pilota najlepszego z najlepszych. W tym celu 
powstał plan szkoleniowy o kryptonimie "The Jet”. 
Wzięli w nim udział najlepsi piloci sprawdzeni Juz w ta¬ 
kich akcjach jak "Rlver Raid czy "Super Cobra”. Każdy 
z nich otrzymał możliwość samodzielnego zaprojekto¬ 
wania makiety umocnień w taki sposób, aby podczas 
prawdziwej akcji nie zawieść nadziel miliardów ludzi 
na całym Śwlecle, a zwłaszcza wykrwawionych Any¬ 
landczyków Jednym z wybrańców możesz być także 
1 Ty! Wystarczy, że spełniasz następujące warunki 


• 1. Przepisałeś poniższy listing 1 za pomocą Zgrywu 
sa zapisałeś plik wynikowy na dyskietce pod nazwą 
JET.OBJ lub na kasecie (bez nazwy) 

• 2. Posiadasz dowolny edytor tekstu Chociażby ”E” 
lub ’PE", które byty zamieszczone w Twoim ulubio¬ 
nym piśmie, lecz najlepszy wydaje się Panther" ze 
względu na możliwość zaprojektowania własnych 
czcionek, co mogłoby być dużym udogodnieniem 

• 3. Posiadasz dowolny kopler scalający np. 'Append , 
który również wydrukowany był w "Tajemnicach 

A teraz kilka słów wyjaśnień na temat poszczegól 
nych punktów. 

Ad.l Bez tego warunku szkolenie Jest absolutnie nie¬ 
możliwe. Uwaga! Otrzymany plik należy zachować 
w celu wielokrotnego użytku. 

Ad.2 Za pomocą edytora tekstu tworzy się makietę 
umocnień Eastlandu Do tego celu należy użyć nastę¬ 
pujących znaków. 

ł — nur twardy, ściana boczna rowu (nie można 
zestrzelić) 

" — mur miękki, poprzeczne przegrody lub zapory 
(możliwe do zestrzelenia) 

! — regenerator uszkodzeń 
$ — skład amunicji (premia punktowa) 

% — paliwo 
< — czołg "w lewo" 

> — czołg "w prawo’ 

Każdy inny znak, np. spacja — wolna przestrzeń. 

Podczas tworzenia makiety należy pamiętać o kilku 
bardzo ważnych sprawach- 

• Czołgi po prawej stronie nie powinny się stykać 
z żadnym innym elementem gdyż spowoduje to "ska¬ 
sowanie' lewej połowy tegoż elementu 

• Każda linia powinna mleć długość 16 znaków 

• Po utworzeniu najniższej’ linii nie należy naciskać 
klawisza RETURN gdyż cała makieta zostanie 
ukośnie przesunięta (podobne zjawisko wystąpi gdy 
któraś z linii będzie zbyt długa lub zbyt krótka). 
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Ad.3 Za pomocą koplera scalającego trzeba połączyć 
plik wygenerowany za pomocą Zgrywusa z utworzoną 
makietą z zachowaniem podanej kolejności, a powstały 
plik nagrać na dysku pod nazwą JET COM lub na ka¬ 
secie. oczywiście bez nazwy. 

Po wykonaniu tych wszystkich czynności gra Jest go¬ 
towa do użytku. Mozę to wszystko jest trochę skompll 
kowane, lecz zapewniam, że warto poświęcić odrobinę 
czasu zwłaszcza, ze to właśnie pora wakacji 1 wolnego 
czasu Jest az nadto. 

Życzę przyjemnej zabawy (czyt. udanego treningu) 

1 gorącego lata 

IJ 1000 REM *-* 

KJ 1002 REM : The Jet : 

VB 1004 REM : autor: Dariusz Zolna : 

YY 1006 REM : (c) 1992 Tajemnice ATARI : 

JP 1008 REM *-* 

NC 1010 DATA f f f f0024f f2 700000000000000 
TM 1020 DATA 00fde9e9e9e9e9e955fed6d6d6 
WM 1030 DATA d6d6d6aafed6d6d6d6d6d6aafe 
FF 1040 DATA e9e9e9e9e9e955fffdf9e9e9e5 
DO 1050 DATA d555fffdede9e9d9d555fdd5e5 
BM 1060 DATA e9e9f9fd55fdd5d9e9e9edfd55 
GM 1070 DATA 00f7e6e6e656eaed004090a429 
XB 1080 DATA 0989a9eeeeeeeeedead5006999 
VT 1090 DATA 999959a955001020b922120303 
OB 1100 DATA 6f1020b820100000e403031222 
RV 1110 DATA b920100000001020b82010006e 
HU 1120 DATA b9e490430f3df6430£3df9e965 
FD 1130 DATA a595d6dad9ebede4d0419d74d0 
WX 1140 DATA 41061b6eb96969691428283c3c 
SR 1150 DATA 00000000000000006969691428 
NX 1160 DATA 2 83c3C00000000000000000000 
PZ 1170 DATA 6969691428283c3c0000000000 
GO 1180 DATA 00000000006969691428283c3c 
FU 1190 DATA 00000000000000000000696969 
XF 1200 DATA 1428283c3c00000014697d7d69 
DS 1210 DATA 14001469bebebebe6914001469 
DS 1220 DATA bebe6914000000287d7d280000 
US 1230 DATA 00001428281400000000000000 
ZD 1240 DATA 00000000000000000000000000 
VU 1250 DATA 010b0f0f0b0100000080C0C080 
ZJ 1260 DATA 00000000000000000000000000 
WG 1270 DATA 0000002004122e2f2f3f772990 
AY 1280 DATA d0f4f8e890d4e4000115070515 
CH 1290 DATA Ie0640504044d0e0f4e00bl£2£ 

RE 1300 DATA lblflf766974d4f4f8e85494e5 
TG 1310 DATA 00010b7f5£lb03070050f4fdf 5 
KN 1320 DATA 60e090020101020b0bl66950d0 
KF 1330 DATA e0f0e05094e5000bl£2f3e3all 
MZ 1340 DATA 0200d0f8e8fc6c944001000000 
SB 1350 DATA 00010105C08080404050906403 
SA 1360 DATA 070f0a06040100c0d0a0d06050 
FM 1370 DATA 00000000000000000001400000 
MG 1380 DATA 00000080500102010000000000 
PQ 1390 DATA 90908000400000000000000000 
YV 1400 DATA 00000000000000000000000000 
YY 1410 DATA 00000000000000000000000000 
ZB 1420 DATA 00000000000000000000000000 
ZE 1430 DATA 00000000000000000000000000 
ZH 1440 DATA 00000000000000000000000000 
WS 1450 DATA 00000000000000000000a6a6££ 

OK 1460 DATA eaebeeeeee9a9af£a9e9b99999 
IX 1470 DATA 00000000000000001ala3£3a3a 
RO 1480 DATA 3b3b3b6969ffaafaaea6a68080 
PB 1490 DATA C0404040404009090£0@0e0e0e 
JQ 1500 DATA 0ea6a6ffaabeebe9e99090f090 


KG 1510 DATA 90909090020203030303030369 
KI 1520 DATA 69ffaaa£bababaa4a4fca4a4e4 
GC 1530 DATA 6464000000000000000©a6a6ff 
OG 1540 DATA eaebeeeeee9a9affa9e9b99999 
EW 1550 DATA 02020303030303036969ffaaa£ 
ZI 1560 DATA bababaa4a4£ca4a4e464640909 
SV 1570 DATA 0f0e0e0e0e0ea6a6ffaabeebe9 
MR 1580 DATA e99090f090909090901ala3f3a 
IC 1590 DATA 3a3b3b3b6969ffaa£aaea6a680 
QM 1600 DATA 80C04040404040000000000000 
ZC 1610 DATA 00000000000000000000000000 
ZF 1620 DATA 00000000000000000000000000 
ZI 1630 DATA 00000000000000000000000000 
ZŁ 1640 DATA 00000000000000000000000000 
NR 1650 DATA 000000000000eeebeb43a7a703 
GK 1660 DATA 03996969415a5a404000000000 
GX 1670 DATA 000000003b3a3al01ala0000a6 
AF 1680 DATA dadad0d9d9d0d0404040408080 
NZ 1690 DATA 00000e0e0e0409090000e9b6b6 
OQ 1700 DATA 34b6b634349090901090900000 
DU 1710 DATA 0303030102020000baadad0d6d 
YJ 1720 DATA 6d0d0d64a4a404a4a400000000 
NN 1730 DATA 000000000000eeebeb43a7a703 
SS 1740 DATA 03996969415a5a404003030301 
FI 1750 DATA 02020000baadad0d6d6d0d0d64 
NN 1760 DATA a4a404a4a400000e0e0e040909 
NH 1770 DATA 0000e9b6b634b6b63434909090 
OU 1780 DATA 10909000003b3a3al01ala0000 
ZX 1790 DATA a6dadad0d9d9d0d04040404080 
HV 1800 DATA 800000££££0030423ba270bd40 
MY 1810 DATA 033007bd4203c907f0098a38e9 
LZ 1820 DATA 10aad0ed3860a9259d4403a93f 
TT 1830 DATA 9d4503ad300238e9259d4803ad 
UR 1840 DATA 3102e93f9d49032056e4bd4803 
AV 1850 DATA 1869258d233fbd4903693f8d24 
AE 1860 DATA 3fad233f38e9108d233fad243f 
PP 1870 DATA e9008d243fad233fc925ad243f 
IE 1880 DATA e93fb00aa00fa90099253f8810 
YS 1890 DATA faa94c8d0030a9848d0130a930 
MO 1900 DATA 8d0230a90c9d42032056e4a910 
IN 1910 DATA 8dc8028dc6028dc502a514c514 
PK 1920 DATA f0fca93d8d2£02a9228d3002a9 
LV 1930 DATA 3b8d3102a013a238a907205ce4 
ZY 1940 DATA a514c514f0fca900a0079900d0 
GL 1950 DATA 9900d28810f7a9e08d£402a000 
SU 1960 DATA 8cc502a514186903c514d0£cc8 
GZ 1970 DATA c00f90efad8402f0fbad8402d0 
CJ 1980 DATA fba9288d07d4a9038dldd@a00c 
SN 1990 DATA a9009900d08810faa9318d6f02 
ŁX 2000 DATA a0009899433b99433c99433d99 
WR 2010 DATA 002b99002c99002d99002e9900 
EK 2020 DATA 2£88d0e5a00cb9b23999b02cb9 
DH 2030 DATA b£3999b02d8810£la008b9a539 
ZT 2040 DATA 99c0028810£7a9008d3002a93b 
SK 2050 DATA 8d3102a9598d0002a9358d0102 
UQ 2060 DATA a9c08d0ed4a0c3a235a907205c 
TT 2070 DATA e4a9248df402a9038d0fd2a900 
AQ 2080 DATA 8d08d2a01aa9009989398810fa 
JL 2090 DATA a9708d9239a003a92f999739a9 
EQ 2100 DATA 009997398810f3a9028da039a9 
GE 2110 DATA 998d9e39ad233f85b4ad243f85 
AK 2120 DATA b5204333a9ff8dfc02a514c514 
BO 2130 DATA £0fcadfc02c91cd0034c0d32c9 
FO 2140 DATA 21d003206d32208832a9048dc0 
GM 2150 DATA 02a9088dcl02a5141869014820 
GW 2160 DATA b73368c514f0fcad8d39f00fa9 
BU 2170 DATA 0a8dc002a90ca9648dcl02ce8d 
CO 2180 DATA 39ad9d39f0b5a9008d9d39ad8d 
SW 2190 DATA 39d0abada039f0l0cea039a932 
OY 2200 DATA 8d8d39a90f8d91394ca031cea0 
CZ 2210 DATA 39a514c514f0£ca013a238a907 










WG 2220 DATA 205ce4a900a0079900d28810fa 
OO 2230 DATA a9148d00d2a9648d02d2a9c88d 
AM 2240 DATA 04d2a00f8c8c398c01d28c03d2 
CR 2250 DATA 8c05d2a207bdc002290fcd8c39 
MB 2260 DATA 900bbdc00229f00d8c399dc002 
KJ 2270 DATA cal0e8a514186903c514d0fc88 
VI 2280 DATA 8810cd4c8430a9ff8da439a514 
YY 2290 DATA c514f0fcad7802c90ff0eea900 
OK 2300 DATA 8da4398dfc0260ce8a39ad7802 
IZ 2310 DATA 2901d003ce8a39ad8a398d05d4 
XW 2320 DATA 30034c4233a9078d8a398d05d4 
SE 2330 DATA a01fb9c33d99e33db9a33d99c3 
EW 2340 DATA 3db9833d99a33db9633d99833d 
IH 2350 DATA b9433d99633db9233d99433db9 
II 2360 DATA 033d99233db9e33c99033db9c3 
OF 2370 DATA 3c99e33cb9a33c99c33cb9833c 
WU 2380 DATA 99a33cb9633c99833cb9433c99 
KL 2390 DATA 633cb9233c99433cb9033c9923 
IW 2400 DATA 3cb9e33b99033cb9c33b99e33b 
LA 2410 DATA b9a33b99c33bb9833b99a33bb9 
EH 2420 DATA 633b99833bb9433b99633b8830 
CR 2430 DATA 034caa32a03fa90099033e8810 
GQ 2440 DATA faad8b3949ff8d8b39f00160a0 
CA 2450 DATA 0fblb4c99bd00da5b438e90185 
II 2460 DATA b4a5b5e90085b5a00fa21f9848 
VA 2470 DATA blb4a007d9cb39f00388d0f8b9 
QX 2480 DATA d339c9489005bd443bd018b9d3 
KD 2490 DATA 399d423bb9db399d433bb9e339 
QV 2500 DATA 9d623bb9eb399d633bcaca68a8 
FH 2510 DATA 8810c7a5b438e91085b4a5b5e9 
CJ 2520 DATA 0085b5a5b4c925a5b5e93fb00a 
CK 2530 DATA ad233f85b4ad243f85b560a963 
FI 2540 DATA 85b0a93b85bla000blb0c91590 
YD 2550 DATA Ica21bddac3a£003cad0f88a0a 
LJ 2560 DATA aabdc83a8del33bdc93a8de233 
ZP 2570 DATA 203935e6b0d002fe6bla5b0c903 
GF 2580 DATA a5ble93e90ccad8c3949ff8d8c 
AK 2590 DATA 3960a000blb0186903c954b003 
JU 2600 DATA 4c4035a003blb0d01ea023blb0 
JA 2610 DATA d018a900a0009Ib0a02091b0a0 
LS 2620 DATA b0a901207939a948a0004c4035 
TT 2630 DATA a954a0004c4035a000blb01869 
VJ 2640 DATA 03c960b0034c4035a5b038e901 
EQ 2650 DATA 85b0a5ble90085bla000blb0d0 
ZG 2660 DATA 17a020blb0d011a900a00391b0 
TY 2670 DATA a02391b0a954a0004c4035a0b0 
EB 2680 DATA a901207939a948a0004c4035ad 
ER 2690 DATA 0ad22907f00160a021blb0a041 
JC 2700 DATA Ilb0f00160a021a91591b01869 
NF 2710 DATA 01a04191b0a9018d8e394c3935 
ZR 2720 DATA a000blb0186902c91eb00a91b0 
PH 2730 DATA 186901a02091b060a040blb0d0 
RG 2740 DATA 13a020a91591b0186901a04091 
YE 2750 DATA b0a000989Ib060a91fa0209lb0 
QA 2760 DATA a000989Ib0a90f8d8f3960a000 
NC 2770 DATA blb0186901c9249002a90091b0 
IZ 2780 DATA 60ad8c39f0034c3935a000blb0 
EZ 2790 DATA a207ddf339f003cal0f8e8e007 
YS 2800 DATA 9011a90091b0c891b0a02091b0 
IW 2810 DATA c891b04c3635bdf33991b01869 
GS 2820 DATA 01c891b0186901a02091b01869 
YX 2830 DATA 01c891b04c3935e6b0d002e6bl 
BO 2840 DATA 6048204d359818691da8681869 
QR 2850 DATA 20a20291b0186901c8cal0f760 
AF 2860 DATA 489848a900ac8a398d0ad48810 
EF 2870 DATA fa8dl6d08dl7d08dl8d08dl9d0 
CF 2880 DATA a984a0358d0ad48d00028c0102 
MK 2890 DATA 68a86840489848a902a0e08d0a 
NI 2900 DATA d48dl8d08c09d4a90e8dl7d0a9 
VG 2910 DATA 59a0358d0ad48d00028c010268 
ZF 2920 DATA a86840489848a902a0e08d0ad4 


VX 2930 DATA 8dl8d08c09d4a90e8dl7d068a8 
SW 2940 DATA 6840ad8a398d05d4a900854dad 
PN 2950 DATA 8e39f01d8d01d2a90a8d00d2ee 
JI 2960 DATA 8e39ad8e39c90a900ba9008d8e 
BR 2970 DATA 398d00d28d01d2ad8f39f027a5 
WZ 2980 DATA 142901f021ad8f3909208d03d2 
IW 2990 DATA ad8f391869dc8d02d2ce8f39d0 
WC 3000 DATA 0ba9008d8f3 9 8d02d28d03d2ad 
QU 3010 DATA 9039f01b8d04d238e9304a4a4a 
OM 3020 DATA 09e08d05d2ce903 9d008a9008d 
TR 3030 DATA 04d28d05d2a5142903d01cad91 
SB 3040 DATA 39f01709c08d07d2a90a8d06d2 
KU 3050 DATA Ce9139d008a9008d06d28d07d2 
QG 3060 DATA ada439f0034cl338ad78022908 
SC 3070 DATA d00aad9239c9b9b003ee9239ad 
RS 3080 DATA 78022904d00aad9239c940f003 
VR 3090 DATA Ce9239ad8402d04ead9b39f049 
BU 3100 DATA a003b99339f0068810f84cda36 
ZY 3110 DATA ad9239186902999339a9b09997 
EK 3120 DATA 398d90399848b99339aab99739 
AB 3130 DATA a8203639a000blb68d9c3968a8 
JJ 3140 DATA ad9c39f010d00ea9009993398d 
RL 3150 DATA 90398d04d28d05d2ad92398d00 
KW 3160 DATA d08d01d0a0b0a90099282b88d0 
VI 3170 DATA faa203bd93399d04d0de9739bd 
PN 3180 DATA 9739a8bdae3999ff2a99002bc0 
PF 3190 DATA 30b00aa9009d9339a92f9d9739 
GZ 3200 DATA Cal0d9a2038a48a9008d9c39bd 
CA 3210 DATA 9739a8bd9339£058aa203639a0 
UA 3220 DATA 00blb68d9c39f04ba233ddfb39 
WW 3230 DATA f006cal0f84c80378a29030aa8 
KQ 3240 DATA b92f3a8d6337b9303a8d64378a 
VA 3250 DATA 0aa8b9373a8d6637b9383a8d67 
FX 3260 DATA 3720313820cb38a9008d90398d 
RJ 3270 DATA 04d28d05d2a90f8d8f396848aa 
MQ 3280 DATA a9009d933968aaca30034cl837 
YX 3290 DATA ae9239a0b4203639a000201a38 
BE 3300 DATA c8201a38a020201a38c8201a38 
WZ 3310 DATA a514291fd013f8ad9e3938e901 
PW 3320 DATA 8d9e39ad9f39e9008d9f39d8ad 
QW 3330 DATA 9f39100fa9ff8d9d39a9008d9f 
JL 3340 DATA 39a9998d9e39a205ad9f392070 
NK 3350 DATA 39ad9e39206739ada03948eea0 
BD 3360 DATA 39a002a96fcea0391002a95499 
IZ 3370 DATA 533e8810f1688da039a21aada3 
SA 3380 DATA 39206739ada239206739adal39 
PB 3390 DATA 206739ad84028d9b39a900854d 
PH 3400 DATA 4c62e4blb6c948b00ba20ddd9f 
TS 3410 DATA 3af004cal0f860a9ff8d9d3960 
DG 3420 DATA 60a5b638e90185b6a5b7e90085 
SD 3430 DATA b760a5b638e92085b6a5b7e900 
KQ 3440 DATA 85b760a5b638e92185b6a5b7e9 
ZZ 3450 DATA 0085b760a000a92491b6c8a925 
KA 3460 DATA 91b6a020a92691b6c8a92791b6 
DA 3470 DATA 60205c38a920201c39f8ad9e39 
GZ 3480 DATA 1869998d9e39ad9f3969048d9f 
BX 3490 DATA 39d8ad9f39c910b00160a9098d 
X0 3500 DATA 9f39a9998d9e3960205c38fSad 
MC 3510 DATA a2391869018da239ada3396900 
GR 3520 DATA 8da339d860205c38a930201c39 
ZS 3530 DATA ada039c902b003eea03960205c 
MQ 3540 DATA 38a9154clc39205c38a900a002 
AW 3550 DATA 91b6a02291b6a9554clc39205c 
GF 3560 DATA 38a5b638e90185b6a5b7e90085 
ER 3570 DATA b7a900a891b6a02091b6a9554c 
CH 3580 DATA Ic39a0408a2902d002a0208a29 
NC 3590 DATA 01f001c8a91f91b6a90a8d8f39 
II 3600 DATA 60f8186dal398dal39a9006da2 
SY 3610 DATA 398da239a9006da3398da339d8 
BN 3620 DATA 60a90085b79838e92929f80a26 
TY 3630 DATA b70a26b785b68a38e93f4a4al8 
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US 3640 DATA 65b685b6a90065b785b7a5b618 
RK 3650 DATA 696385b6a5b7693b85b760484a 
XR 3660 DATA 4a4a4a20703968290f09109d43 
FD 3670 DATA 3ee86018790000990000a90079 
XS 3680 DATA 01009901006000070000000000 
AC 3690 DATA 00000000000000000000000000 
YO 3700 DATA 00090002000000000408060a72 
BN 3710 DATA 363cle00010410401010383810 
GY 3720 DATA 10baba387c5454541038100028 
FV 3730 DATA 2800921092bababa2322252421 
3740 DATA 3c3e000105090dl15448000206 
Z 3750 DATA 0a0el255490003070b0f137468 
NC 3760 DATA 0004080cl014756924282c3034 
OW 3770 DATA 383c0005060708090a0b0c0d0e 
VA 3780 DATA 0f1011121314484968694b4c6b 
FA 3790 DATA 6c4e4f6e6f5152717255567576 
WD 3800 DATA 585978795b5c7b7c5e5f7e7f01 
JI 3810 DATA 0203043138323840384e38cb38 
ZI 3820 DATA cb38cb38cb3873387338733873 
RB 3830 DATA 38al38al38al38al38b838b838 
OR 3840 DATA b838b838d338d338d338d338d3 
YR 3850 DATA 38d338d338d338d338d338d338 
TH 3860 DATA d338d338d338d338d338e538e5 
PH 3870 DATA 38e538e538e538e538e538e538 
EW 3880 DATA e538e538e538e538e538e538e5 
ZT 3890 DATA 38e53803390339033903390102 
RF 3900 DATA 0304050607081517191alblc48 
AO 3910 DATA 4b4e5154575a5d7a6el517191b 
CZ 3920 DATA ldlf2021222324282c3034383c 
RT 3930 DATA 3935fc33fc33fc33fc33353435 
WS 3940 DATA 34353435347b347b34a334a334 
JZ 3950 DATA a334a334a334e234e234e234e2 
DP 3960 DATA 34e234f234f234f234f234f234 
PO 3970 DATA f234f234707070707064833b24 
TF 3980 DATA 24242424242424242424242424 
EG 3990 DATA 242424a4248042433e41003b70 
Ol 4000 DATA 7070707070707042633e020202 
WU 4010 DATA 02027070707070707070707070 
EX 4020 DATA 42433e41223b433e243f267565 
BI 4030 DATA 6clal010100024616d6167651a 
FX 4040 DATA 5454540033636f72651al01010 
DT 4050 DATA 101010c9cfc9cf4b8000804ccf 
PD 4060 DATA c9d5cf00000000d980c98080d9 
RN 4070 DATA 80808059808080808000d95900 
JL 4080 DATA 0080558000d9cb550000000000 
EH 4090 DATA 4bd54c8080d980cb55004cd980 
QH 4100 DATA 594b00d959000080008000d959 
AS 4110 DATA 000000000000d9 805 9 8080d9 80 
JK 4120 DATA c9d50000d980590000cccb0049 
AT 4130 DATA 8000804fcccb55cc000000004b 
AF 4140 DATA 808080c9d98080805900d98059 
HB 4150 DATA 00003772697474656e0062791a 
XT 4160 DATA 002461726975737a003a6f6c6e 
RL 4170 DATA 61001119191200000000000863 
BJ 4180 DATA 090011191912002465002a6574 
PU 4190 DATA 00736f66747465616d00000000 
MS 4200 DATA 153fe002e30284300030 


Dariusz Żołna 

Od Redakcji 

Listing, który przedstawiamy obok, stanowi przy¬ 
kład planszy do gry The Jet. Nie łudzimy się że 
wszystkim przypadnie do gustu, ale przecież każdy 
może bez trudu ułożyć dalszy ciąg przygód dzielnego 
pilota. Powodzenia! 
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Mariusz Bednarz z Gliwic 

Przesyłam do ewentualnego wydrukowania na ła¬ 
mach TA program na konkurs "5 linii". Program ten 
nosi nazwę " SYSTEMY LICZBOWE " £ ma za zadanie 
przeliczać liczby z dowolnego systemu na Inny do¬ 
wolny system. Oczywiście należy wziąć pod uwagę 
ograniczenia wynikające z mozltwoścl samego 
sprzętu. 

Uważam (nieskromnie), ze program ten zasługuje 
na wydrukowanie go w TA, gdyż jest "pchełką" w po¬ 
równaniu do innych programów tego typu drukowa¬ 
nych np. w "Bajtku", liczących kilkanaście, 
a nierzadko kilkadziesiąt linii i mogących, w najle¬ 
pszym przypadku, przeliczać liczby jedynie w 3 sy¬ 
stemach (DEC HEX-BIN). 

Algorytm wykorzystany do przeliczania liczb po 
chodzi z książki "Maths on CBM-64" autorstwa Cze¬ 
sława Kosniowskiego. 

Tu następuje program: 

Ul 1 CLR :A=128:DIM A$(A),B$(A),C$(A):? : 

? "PODAJ: liczbę,system pocz. ,system ko 
nc.":INPUT A$,SP,SK:A=LEN(A$) 

VI 2 FOR 1=1 TO A:P=A-I:X=ASC(A$(I)):X=X- 
48:IF X>9 THEN X=X-7 
FD 3 N=N+X*SP~P:NEXT I:A=0 
Cl 4 M=INT(N/SK):R=N-SK*M:N=M:A=A+1:B$(A) 
“CHR$(R+48):IF ASC(B$(A))>57 THEN B$(A 
)=CHR$(R+55) 

KM 5 ON N<>0 GOTO 4 :A«LEN(B$ ) :FOR 1=1 To 
A:C$(I,I)=B$(A+l-I):NEXT I:? "Wynik: “ 

; C $ : GOTO 1 


Niestety, nie podzielam zdania autora. Program jest 
stanowczo za długi, jak na realizowane funkcje. Argu¬ 
mentacja. że Istnieją jeszcze gorsze programy zupełnie 
do mnie nie trafia. Mnie także zdarzało się widzieć 
brzydszych ode mnie ludzi, lecz to nie pchnęło mnie do 
udziału w konkursie piękności 

Nie wiem, jaka część programu została przepisana 
ze wspomnianej książki, lecz wątpię żeby Jej autor po¬ 
pełnił tak szkolny błąd, jak potęgowanie w pętli Pod¬ 


noszenie do potęgi Jest niemal na każdym komputerze 
operacją niesłychanie czasochłonną. Umieszczanie jej 
wewnątrz pętli jest po prostu karygodne Zwłaszcza 
w sytuacji, gdy wystarczy zwykłe mnożenie 1 dodawa¬ 
nie Każdy podręcznik programowania opisuje tę meto¬ 
dę Trąbiono o niej w czasopismach Legendarny Juz 
Dziesbln z TA tez obywa się bez potęgowania Widać to 
zwłaszcza przy liczbach wielocyfrowych: nadesłany 
program jest nieznośnie wolny 

Sposób wprowadzenia danych pozostawia wiele do 
życzenia Program pyta."PODAJ;liezbe,system pocz.,sy- 
stem konc.". Lecz jeśli napisać: 

12 , 10,2 

to pojawia się pytajnik. O co chodzi? Po prostu zmien¬ 
na tekstowa A$ przyjmuje cały tekst, łącznie z przecin¬ 
kami 1 dla SP. SK nie starcza juz danych Wydaje ml 
się, że pobieranie parametrów w innej kolejności zgra¬ 
bnie rozwiązuje ten problem. 

A przy okazji, zupełnie niezrozumiałe Jest użycie az 
trzech tablic tekstowych oraz w ogóle tak wielu 
zmiennych. Rozrzutność, charakterystyczna dla po¬ 
czątkujących programistów, źle wpływa na czytel¬ 
ność programu, a nierzadko 1 na Jego poprawność. 
Ten, na przykład, źle trawi 25-cyfrowe liczby dwój¬ 
kowe, choć mieszczą się one w zakresie dopuszczal¬ 
nym dla BASIC-a 

Brak w programie opcji wyjścia. Trudno niestety uz¬ 
nać za prawidłowe kończenie działania programu kla¬ 
wiszem BREAK lub RESET. Sygnałem do zakończenia 
mogłyby być np. dane 

0 , 0 , 

Każdy się zgodzi ze, aby zostać pilotem, trzeba skoń¬ 
czyć stosowną szkołę. Aby zostać kierowcą, tez trzeba 
odbyć kurs. By zostać fryzjerem, szewcem, piekarzem, 
tez się trzeba długo uczyć Nie wiem czemu tak wiele 
osób uważa, że aby zostać programistą, wystarczy ku¬ 
pić komputer. 

Często radzę to lub owo młodym autorom, którzy 
przysyłają swe utwory z prośbą o ocenę Świadomość 
własnej niedoskonałości od dawna (Sokrates!) stanowi 
dźwignię postępu. Ale irytuje mnie. gdy twórca sam wy¬ 
chwala swój knot pod niebiosa. Ludzie 1 nie zapominaj¬ 
cie, programowanie Jest sztuką. Nie każdy musi to ro¬ 
bić, 
i 

Oto przykład programu który lepiej rozwiązuje po¬ 
stawione zadanie: 

I 

K 1 DIM A$(128):? ”Z, NA, LICZBA":INPUT 
P,Q,A$:A=LEN(A$):X=0:IF A=0 THEN END 
MD 2 FOR 1=1 TO A:D=ASC(A$(I))-48:D=D-7*( 

D>9 ):X=P*X+D:NEXT 1:1=128 
CU 3 Y*“INT( X/Q) :D=X—Q*Y :A$ ( I, I ) =CHR$ (D+48 
+7* (D>9 )) :X=Y : 1=1-1:ON X<>0 GOTO 3:? " 
WYNIK: ” ;A$ (1+1):RUN 


Janusz B. Wiśniewski 
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DC 

BK 



MO 

ZB 

VC 

ZD 

zc 

zr 

HU 

NN 

IN 

CP 


HC 

NU 

DF 

CY 

UR 

ZR 

EN 


GO 

RG 

EH 

OT 

CD 

MG 

ZT 

JT 

KM 

HG 

1!M 

EA 

RP 

HM 

ZI 

5N 

DR 

PL 

YA 

OK 

TJ 


ORGANIZA 


1 REM MMMKltWMMMlCH - K - MKMMMMmCKMMMKItMKm* 

2 REM * X 

3 REM * PIRAMIDA 1992 * 

4 REM * * 

5 REM * autor: Aleksander usik * 

6 REM * * 

7 REM 

8 REM 
10 REM 


20 GRAPHICS 0:CL ^P0KE ł!l 752,l:? CHRS tl 
25) ANTIC=PEEK(560)+256*PEEK(561).POKE 

559, PEEK(559)32 

30 POKE ?0B,14:P®KE 709,10:POKE 710,0: 
POKE 711,6:POKE 712,0 

41 RE5T0RE 50:FOR [=1 TO 5:REDD A:POKE 
ANTIC+I-3, A ::NEKT I 
56 DATA 112,112,70,0,156 

60 POKE ANTIC+30,PEEKCANTIC*30)~2:POKE 

560, PEEK C560)-2:POKE 559,PEEK C559)*32 
70 RE5TDRE 80:FOR 1=0 TO 1.9 : READ A:POK 
E 39936+1,A:NEKT I 

80 DATA 8,48,105,114,225,237,105,100,3 
3,0,0,98,121,14,111,108,111,117,115,0 
98 RE5T0RE 100:DIM AS(12):FOR 1=1 TO 1 
2;READ AS SFOR J = 0 TO 11iPOKE 1536+1*12 
♦J,A5CCASCJ+1)):MEKT J:NEKT I 
100 DATA ¥*¥¥¥I0¥¥¥¥¥ 

118 DATA ¥?¥¥¥UU¥¥V¥¥ 

120 data mwuuom* 

130 DATA ¥¥¥¥UUUU¥¥¥¥ 

140 DATA ¥¥¥IUUUUO¥¥¥ 

150 DATA ¥¥¥UUUUUU¥¥¥ 

160 DATA ¥¥IUUUUUU0¥¥ 

176 DATA ¥¥UUUUUUUU¥¥ 

180 DATA ¥IUUUU IUUUO 
190 DATA UUU 

200 DATA IUUUUUUUUUUO 
210 DATA U U U UUUUUU 
220 POSITION 1,21:' 

1“ 


T 


230 POSITION 1,22:? " 

. ,3 han : 11 

240 POSITION 1,23:? " 1 

, _,_ I I ■■ 

250 POSITION 1,1:? " 
i-i n 

18:? " 


RUCH: 


CZAS 


MAŁE DEMKO 


ro 13:PH CI)=153 


260 POSI TION 
270 REM 

280 DIM PMC13):FOR 1=0 
6+1*12:NEKT I 

290 POSITION 15,18:? "TY TEZ TO POTRAF 
TSZ" 

380 PM=400B1:FOR 1=0 TO 11:FOR J=0 10 
11!POKE PM+I*40+J,PEEKCPM(12-I)+J) NEK 
T J:NEKT I 

310 FOR J=0 TO 11:FOR 1=0 TO 11:POKE P 
M+X+J*40,0:POKE PM+13 + I + J*40 ,PEEKtPH tl 
2-J)+I) NEKT I:NEKT J 

320 FOR J=0 TO 11 FOR 1=0 TO 11:POKE P 
M+I+J*40+13,{ POKE PM+I+J*40,PEEK CPN tl 
2-J)+1):NEKI 
OH 338 REM 
UP 340 TRAP 
UU 350 POSITION 15,16:? "PODAJ LICZBĘ TLE 
MENTOH ":POSITION 15.18 "Ol 3- DO - 
12- : POKE ?52,0:INPUT TRD 

AS 360 POKE 752,1:POSITION 15,16:? " 

•:POSITION 15,18:? " 


PN 


IR 


:NEXT I:NEKT J _ 

pWWP^ 


MI 

OR 


CK 

OP 


ON 


LB 


LP 

UN 


KM 

55 


UM 


370 IF TRD<3 OR TRD>12 THEN GOTO 340 
380 POSITION 34,21:? TRD:TRAP 40000:RU 
CH=0 

398 DIM MAT C2,12):FOR 1=0 TO 2:FOR J-0 
TO 12 f MAT CI,J) — 0:NEKT J:WENT I 
400 FOR 1=1 TO TRD MAT(0 , I) = tTRD+1)-I: 
NEKT I;MAT C0,0)=TRD 

418 FOR 1=11 TO B STEP -1i FOR J=B TO 1 
1:POKE PM+J+I*40,CI<TRD)*PEEKtPWtTRD-I 
*CI<TRD))+J) NEKT J NEKT I 
420 PIR=0 ; NR=0 KOL—PM+16*40 : K5Z=K0L+13 

440 ŚoSuff^60: I POKl?*i?, : 0 > 5 1 pÓKE 1,, 19*,^^>OKE 

20,0 

450 ST=STICK C0) 

460 CZ = PEEK C20)+256*PEEK C19)+65536*PEE 
K f18) !SEK=INT tCZ/58) :POKE 77,0 
470 ON (ST: 13)+2*C5T=14)+3*tST<12) GOS 
U6 510,560,660 


tafei 



USTAWIANIE 


DC 480 POSITION 8,21:* RUCH; 11 11 ; POSITION 

19,21:? SEK;” " 

BK 490 IF PEEKIPM-22+TRD*40)=73 THEN GOTO 
760 

OR 500 GOTO 458 
OD 510 REM BgtaMUtflirilJUl 
KK 520 IF NR>0 THEN GOJ 
BD 530 POZ=MATCPIR,0)SIF POZ=0 THEN GOSUB 
760;RETURN 

HE 546 NR05=MATCPIR,POZ):ADKL=PM+PIR*13+4 
0*tPOZl) 

JM 550 FOR 1=0 TO 11:POKE ZAH+I,PEEK(ADKL 

+I):poke adkl+i,o:nekt i 
DP 56*. MAT(PIR,POZ)=0:MAT(PIR,0)=POZ~1:NR 
=NROS 

ZP 578 RETURN 
LO 580 REM _ 

YB 590 IF NR=0 THEN GOSUB 760:RETURN 
TQ 600 POZ=MAT(PIR,0)“IF POZ=0 THEN GOTO 
620 

AU 610 NR05=MATtPIR,P0Z):IF NR>NR05 THEN 
GOSUB 760 RETURN 
IG 620 ADKL=PM+PIR*13+40*POZ 
MF 630 FOR 1-0 TO 11!POKE ADKL+I,PEEKCZAH 
+I):POKE ZAW+1,0 NEKT 

QP 64B MAT(PIR,0)=P0Z+1:MAT(PIR,POZ+1)=NR 
:NR=0:RUCH—RUCM+1 

ZM 650 RETURN 

GV 670 IF M 5r=7 I ' i T*EN : 

GOTO 700 

EF 680 IF 5T = 11 THEN PIRN=PIR-l+3*(PIR=0) 

:GOTO 700 
ZU 690 RETURN 

TH 700 KSZN=KOL+13*PIRN:ZAHH=KSZN-40 
FH 718 IF NR=0 THEN GOTO 730 
UL 720 FOR 1=0 TO 11.POKE ZAHN+I,PEEK(ZAH 
+I):POKE ZAH+1,8 NEKT I 
SR 730 FOR 1=0 TO 1 POKE K5ZN+5+I,PEEK(K5 
Z+5+I):POKE KSZ+5+I,0:NEKT I 
JM 746 PIR=PIRN;ZAM=ZAKNSKSZ=KSZN 
ZN 7!38 RETU RN 
LU 760 REM ■i?l[ł44!< 


YZ 

FD 

UE 

YK 


770 SOUND 0,200,12,15:FOR 1=0 TO 50:NE 

KT IiSOU ND 0,0,0,0 :RETURN _ 

780 REM ■W i lTilTIjflJt i 

790 POSITION 12,16:? "MOJE GRATULACJE 


800 

OKE 


FOR 1=0 TO 255;POKE 712,I*NEKT I: 
712,0:POSITION 12,16:? “ 


PL 010 GOTO 10 


W Indii, w mieście Benares, pod kopułą głównej 
świątyni, w miejscu, gdzie znajduje się środek Ziemi, 
postawił Brahma na brązowej tabliczce trzy diamento¬ 
we pałeczki. Przy stworzeniu świata na Jedną z tych 
pałeczek nanizane zostały 64 krążki z czystego złota 
tak, iz utworzyły postać ściętego stożka. Kapłani, zmie¬ 
niając się wzajemnie dniem i nocą bez przestanku zaję¬ 
ci są przenoszeniem tego stożka z pierwszej pałeczki 
na drugą, posiłkując się przejściowo pałeczką trzecią, 
przy czym zobowiązani są najsurowiej przestrzegać 
dwu następujących zakazów: 

• za Jednym ujęciem nie przenosić nigdy więcej ponad 
Jeden krążek 

• nigdy nie kłaść krążka większego na mniejszym 

Gdy kapłani, zachowując ściśle te przepisy, ukończą 
swą pracę, nastąpi koniec świata... 


Tak głosi hinduska legenda, która stała się inspira¬ 
cją dla wielu prac, nie tylko matematycznych. Na za¬ 
kończenie chciałbym uspokoić wszystkich czytelników 
ulegających różnego rodzaju przepowiedniom, podając 
wzór na liczbę koniecznych przełożeń w funkcji ilości 
krążków: 


x=2jj-l 


Coż za ulga! 


Aleksander Usik 
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Przerwanie Display List 


W tym artykule postaramy się wy¬ 
jaśnić znaczenie bitu siódmego 
w rozkazie programu ANTIC’a. 
Ustawienie tego bitu powoduje wy¬ 
konanie procedury przerwania Di¬ 
splay List. Wektor Dllv ($200 - 
512) wskazuje na tą procedurę. Po¬ 
nieważ przerwanie Display List na¬ 
leży do przerwań typu NMI (Non 
Maskable Interrupt - przerwanie 
nlemaskowalne, czyli takie, które 
nie może być zignorowane przez 
CPU - musi być wykonane) konie¬ 
czne jest ustawienie 6 17 bitu w re¬ 
jestrze Nmlen ($D40E - 54286), 
czyli zezwolenie na wykonanie prze¬ 
rwań NMI. Procedura przerwania 
Display List musi kończyć się roz¬ 
kazem RTI procesora. W proce¬ 
durze mogą być wykorzystywane 
wszystkie rejestry procesora, lecz 
Ich wartości muszą być takie same 
przed wywołaniem jak I po jej wy¬ 
konaniu W tym celu wartości 
modyfikowanych rejestrów należy 
przechować w konkretnych komór¬ 
kach pamięci, a Jeszcze lepiej - od¬ 
łożyć na stos (nie zapominając 
o ściągnięciu Ich przed wyjściem 
z procedury. Spójrzmy na następu¬ 
jący przykład: 

Program Egu $8800 


List_mem Equ 
List err Equ 
Code_mem Equ 
Code_dsk Egu 


%00000110 

%00000101 

%00010000 

%00100000 


Dliv Equ $200 

Dlptrs Equ $230 

Colpf2 Egu $D018 

Wsync Egu $D40A 

Nmien Egu $D40E 


Pom Egu $F0 


Opt Listerr+Code mem 


Org 

Program 

Łda 

Dlptrs 

Sta 

Pom 

Łda 

Dlptrs+1 

Sta 

Pom+1 

Łda 

Dliv 

Pha 


Łda 

Dliv+1 

Pha 


Ldy 

#$10 

Łda 

(Pom),y 

Ora 

#$80 

Sta 

(Pom),y 

Łda 

<Przerw 

Sta 

Dliv 

Łda 

>Przerw 

Sta 

Dliv+1 

Łda 

#$C0 

Sta 

Nmien 

Jsr 

Klawisz 

Łda 

#$0 

Sta 

Nmien 

Sei 


Pla 


Sta 

Dliv+1 

Pla 


Sta 

Dliv 

Łda 

#$FF 

Sta 

Nmien 

Cli 


Rts 


Pha 


Łda 

#$06 

Sta 

Wsync 

Sta 

Colpf2 

Pla 


Rti 


End 

of File 


(do programu należy dołączyć 
procedurę klawisz z pierwszego ar¬ 
tykułu) 


Na początku robimy kopię wekto¬ 
ra Dlptrs na stronie zerowej (ety¬ 
kieta Pom) aby po odłożeniu wekto¬ 
ra przerwania Dllv na stos ustawić 
siódmy bit w 16 rozkazie programu 
ANTIC’a przy pomocy adresowania 
pośredniego Y. Następnie ustawia¬ 
my wektor Dllv na adres naszej 
procedury przerwania (etykieta 
Przerw), po czym zezwalamy na wy¬ 
konanie przerwania NMI (wartość 
$C0 wpisywana do Nmlen) Wyko¬ 
nując procedurę klawisz, komputer 
oczekuje na naciśnięcie klawisza. 
W tym czasie możemy oglądać efekt 
działania procedury przerwania. 
W procedurze wykorzystywany Jest 
akumulator, dlatego odkładamy go 
na stos. W trakcie działania prze¬ 
rwania wpisywana Jest tylko war¬ 
tość $06 do rejestrów Wsync 
1 Colpf2, 


Co nieco o kolorach 

Rejestr Colpf2 jest jednym z dzie¬ 
więciu rejestrów kolorów. ANTIC 
tworzy strukturę obrazu, natomiast 
kolory dostarcza GTIA. Ponieważ 
w tym artykule zajmujemy się prze¬ 
rwaniem Display List. z którym 
(przeważnie) łączy się zmiana kolo¬ 
rów, dlatego jesteśmy zmuszeni za¬ 
jąć się po części tym tematem. Jak 
wspomnieliśmy wyżej Istnieje dzie¬ 
więć rejestrów kolorów, znajdują¬ 
cych się w obszarze pamięci od 
$D012-$D01A (53266-53274). 
Każdy rejestr posiada swój cień. 
Rejestry clenie (Shadow Reglsters) 
kolorów umieszczone są w pamięci 
od adresu $2C0-$2C8 (704-712). 
W komputerach ATARI większość 
rejestrów wykorzystywanych przez 
specjalizowane układy komputera 
(rejestry sprzętowe) posiada kopie 
w normalnych komórkach RAM (re¬ 
jestry cienie) Zawartość cleni prze¬ 
pisywana jest do rejestrów sprzęto¬ 
wych podczas przerwania VBLK, 
czyli Inaczej mówiąc po utworzeniu 
całego obrazu (co 1/50 sekundy). 
UWAGA: Rejestry sprzętowe kolo¬ 
rów przeznaczone są tylko do zapi ¬ 
su. Odczytywane z nich wartości 
nie są zgodne z za pisywanym 1. Każ¬ 
dy z rejestrów kolorów ma taką sa¬ 
mą strukturę, tzn. cztery najstarsze 
bity określają kolor, a pozostałe 
stopień Jasności koloru. W ten spo¬ 
sób wybieramy z 256 barw, czyli 
z całej palety ATARI. Poniższa tabe- 
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la zestawia wszystkie dostępne ko¬ 
lory: 


kod 

kolor 

$0x 

szary 

$lx 

złoty 

$2x 

pomar ańc z owy 

$3x 

czerwony 

$4x 

różowy 

$5x 

purpurowy 

$6x 

fioletowy 

$7x 

zimny niebieski 

$8x 

niebieski 

$9x 

błękitny 

$AX 

turkusowy 

$Bx 

niebies ko—zielony 

$CX 

zielony 

$Dx 

żółto—zielony 

$EX 

pomarańc zowo—zielony 

$Fx 

żółty 


Więcej szczegółów na temat kolo¬ 
rów podamy przy opisie funkcji 
1 rejestrów GTIA. Do analizy proce¬ 
dury naszego przerwania wystarczy 
nam informacja, ze rejestr Colpf2 
w tiyble ANTICa 2 określa kolor 
tła. Wróćmy do naszego przykładu 
Jak Juz wspomnieliśmy w trakcie 
przerwania VBLK rejestr sprzętowy 
Colpf2 otrzymuje wartość clenia 
Colpf2S. Rozpoczyna się tworzenie 
obrazu. Wartość koloru kolejnych 
linii pobierana jest z rejestru sprzę¬ 
towego. Po wykonaniu 16 rozkazu 
ANTICa, czyli po wyświetleniu 12 
Ilnll procedura przerwania Display 
List modyfikuje rejestr sprzętowy. 
Oznacza to, że reszta linii wyświet¬ 
lana będzie w Innym kolorze, po 
czym cały cykl wyświetlania obrazu 
zaczyna się od początku. Zauważ¬ 
my, ze 7 bit ustawiony jest w 16 
rozkazie programu ANTICa two 
rżącym 11 linię. Oznacza to, że 
przerwanie wykonywane jest po 
wyświetleniu tej linii (na początku 
linii 12). 

Rola rejestru Wsync 

A Jaką rolę odgrywa Wsync? Pro¬ 
cesor ATARI Jest na tyle szybki, że 
w momencie zmiany rejestru sprzę¬ 
towego wiązka elektronów tworzą¬ 
cych pojedynczą linię obrazu może 
znaleźć się w środku tej linii (gdyby 
nie był tak szybki, to też by mogła - 
przyp. red.). W takim przypadku 
kolor zmieniany Jest od tego miej¬ 
sca. Jeśli natomiast do rejestru 
Wsync (Walt for Synchronlzatlon - 
SD40A - 54282) wpiszemy dowol¬ 
ną wartość, to wykonanie progra¬ 
mu zostanie wstrzymane do naj¬ 


bliższej synchronizacji poziomej, 
czyli do momentu kiedy wiązka ele¬ 
ktronów nie wyświetli całej linli. 
Dzlękl temu zmiana koloru nastę¬ 
puje w kolejnej fizycznej linii ekra¬ 
nu. 

Przerwanie Display List w przy¬ 
kładach 

Na koniec popatrzmy na dwa 
przykłady programów. 

Program pierwszy: 


Program 

Equ 

$8800 

List mem 

Equ 

%00000110 

List err 

Equ 

%00000101 

Codę mem 

Equ 

%00010000 

Codę dsk 

Equ 

%00100000 

Dliv 

Equ 

$200 

Dlptrs 

Equ 

$230 

Colpf2 

Equ 

$D018 

Wsync 

Equ 

$D40A 

Nmien 

Equ 

$D40E 

Pom 

Egu 

$F0 


Opt List_ err+Code mem 
Org Program 

Lda Dlptrs 
Sta Pom 
Lda Dlptrs+1 
Sta Pom+1 
Lda Dliv 
Pha 

Lda Dliv+1 
Pha 

Ldy #$0A 
Lda (Pom),y 
ora #$80 
Sta (Pom),y 
Lda <Przerw 
Sta Dliv 
Lda >Przerw 
Sta Dliv+1 
Lda #$C0 
Sta Nmien 
Jsr Klawisz 
Lda #$0 
Sta Nmien 
Sei 
Pla 

Sta Dliv+l 
Pla 

Sta Dliv 
Lda #$FF 
Sta Nmien 
Cli 
Rts 

Przerw Pha 
Txa 
Pha 

Lda #$22 
Ldx #$10 

LI Sta Wsync 

Sta Colpf2 


Dex 

Bne LI 

Lda #$2A 

Sta Wsync 

Sta Colpf2 

Pla 

Tax 

Pla 

Rti 

End of File 

Program drugi: 


Program Equ $8800 

List_mem Equ %00000110 
List err Equ %00000101 
Codę mem Equ %00010000 
Code_dsk Equ %00100000 

Dliv Equ $200 

Dlptrs Equ $230 

Colpf2 Equ $D018 

Wsync Equ $D40A 

Nmien Equ $D40E 

Pom Equ $F0 

Kolor Equ $F2 

Opt List__err-i-code__mem 
org Program 

Lda #$2A 
Sta Kolor 
Lda Dlptrs 
Sta Pom 
Lda Dlptrs+1 
Sta Pom+1 
Lda Dliv 
Pha 

Lda Dliv+1 
Pha 

Ldy #$0A 
Lda (Pom),y 
ora #$80 
Sta (Pom),y 
Ldy #$0C 
Sta (Pom),y 
Lda <Przerw 
Sta Dliv 
Lda >Przerw 
Sta Dliv+1 
Lda #$C0 
Sta Nmien 
Jsr Klawisz 
Lda #$0 
Sta Nmien 
Sei 
Pla 

Sta Dliv+1 
Pla 

Sta Dliv 
Lda #$FF 
Sta Nmien 
Cli 
Rts 

Przerw Pha 

Lda Kolor 
Eor #$08 
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Co tom Powie 
a Ao-aw/rie? 


Sta Kolor 
Sta Wsync 
Sta Colpf2 

Pla 

Rti 

End of File 

Oba wykorzystują przerwanie Di¬ 
splay List 1 oba realizują to samo 
mimo różnych algorytmów Zada 
nlem obu programów Jest zmiana 
koloru tła ekranu w dwóch jego 
miejscach. Zasadnicza różnica po¬ 
lega na tym, ze program pierwszy 
wywołuje raz przerwanie Display 
List w trakcie wyświetlania nato¬ 
miast program drugi robi to dwu 
krotnie W programie pierwszym po 
wywołaniu procedury przerwania 
(etykieta Przerw) do akumulatora 
wpisywana jest wartość pierwszego 
koloru Następnie w pętli wywoły 
wanej 16 razy zawartość akumula 
tora zostaje wpisana do rejestru 
Colpf2 (modyfikacja koloru tła) 
1 Wsync (znaczenie tej operacji opi¬ 
saliśmy powyżej) Po 16 przebiegu 
pętli modyfikujemy na nowo oba te 
rejestry (wpisując wartość $2A) 
Efekt zmiany kolorów realizowany 
przez program pierwszy można za¬ 
programować o wiele prościej, wy¬ 
korzystując dodatkową komorkę 


pamięci. Metoda ta została przed¬ 
stawiona w programie drugim Do¬ 
datkowa komórka (etykieta Kolor) 
zastosowana jest po to, aby prze 
chowywać aktualną wartość wy 
świetlanego koloru. Przed urucho¬ 
mieniem przerwania komórka ta 
otrzymuje wartość $2A. Dwukrotne 
wywołanie procedury przerwania 
Display List (etykieta Przerw) jest 
możliwe dzięki ustawieniu 7 bitu 
w dwóch rozkazach programu AN 
TIC'a, Przy pierwszym wywołaniu 
procedury dzięki zastosowaniu ln 
strukejl logicznej EOR "Kolor 
otrzyma wartość $22, przepisywa 
ną do rejestru Colpf2 (pierwsza 
modyfikacja koloru tła) Przy wywo 
łanlu drugim "Kolor" otrzyma po 
nownie wartość $2A (druga modyfl 
kacja koloru tła) UWAGA. Rozwlą 
zannie drugie Jest lepsze, gdyż sto¬ 
sowanie pętli wewnątrz procedury 
Display List opożnla pracę progra 
mu wykonywanego bezpośrednio 
przez procesor. 

Kolejny odcinek cyklu poświęci 
my ciekawszym przykładom wyko 
rzystania przerwania Display List, 

Tctmasz Bielak 
Rafał Bielecki 


Adai" to gra zręcznościowa Insplrowa 
na nieco "Misją Pomimo pewnych podo¬ 
bieństw gracz znajdzie tu wiele niespo¬ 
dzianek Akcja rozgrywa się w kilku miej 
scach, np w porcie, elektrowni, na lotni 
sku Bohater dysponuje licznymi rodzaja 
ml broni. Istnieje także możliwość walki 
wręcz Wiele atrakcji dla wszystkich miłoś¬ 
ników niebezpiecznych przygód 

"Changef lo znakomita gra zręcznośdowo- 
logjczna Gwarantuje sporo dobre) zabawy 
miłośnikom łamigłówek 1 układanek. Przy 
odrobinie wysiłku umysłowego fantazji. 
1 sprawności w posługiwaniu się Joystickiem 
spędzisz przed monitorom czas, którego 
z całą pewnością nie uznasz za stracony 

"Gaptain Gather” to gra Logjczno-zręcz 
nośdowa Jej celem jest takie manewrowa 
nie ładunkami termonukleamymt, by Ich 
rdzenie stykały' się 1 były odizolowane od 
otoczenia Powoduje to bezpieczne znisz¬ 
czenie ładunków a następnie przejście do 
następnej planszy. Do układania używa się 
rakiety manewrowej typu PUSH Stopień 
trudności wzrasta z każdą kolejną plan¬ 
szą Jeśli podobała Cl się Lasermanla 
z pewnej^aą pctublsz "Captalna Garthera". 

Gold Hunter" o najnowsza gra zręczno¬ 
ściowa, przeznaczona dla miłośników wę¬ 
drówek po tajemniczych labiryntach Zada¬ 
nie połęga tu na wydobyciu złota ukrytego 
w studni Dotarde do niej nie Jest proste 
na zuchwałej) śmiałka czyhają Jadowite 
węzę, obrzydliwe pająki 1 mnóstwo Innych 
niebezpieczeństw Wszyscy cl. którzy z za¬ 
partym tchem śledzili przygody Indiany Jo¬ 
nesa nareszdemają coś dla siebie 

"Klątwa* to rewelacyjna gra fantasy au¬ 
torstwa Rolanda Pantoly (znanego z A D 
2044). W tajemniczych komnatach przeży¬ 
jesz przygody, Jakich Jeszcze nie było 
Świetne pomysły, znakomita realizacja To 
gra, o której zawsze marzyłeś. Dzięki niej 
przeniesiesz się do fantastycznego świata 
gdzie wszystko jest możliwe Czekają tam 
na Ciebie niesamowite przeżycia 1 sympa¬ 
tyczni bohaterowie Mozesz stać się jed¬ 
nym z nich Nie przegap tej szansy' 

Redakcja 'Tajemnic ATARI" pragnie 
poinformować o możliwości zakupu ka¬ 
set 1 dysków z grami które zamieszczane 
były na łamach pisma Wybrane zostały 
najlepsze cieszące się wśród czytelń! 
ków największym uznaniem Zostały one 
zgrupowane w zestawach z których kaz 
dy zawiera trzy lub cztery gry Wykaz ze 
stawów oraz ich zawartości, a także wa¬ 
runki zakupu wraz z cenami znajdują 
się na ostatniej stronie numeru 

Wszystkie wyżej wymienione 
programy można nabyć wysyłko 
wo w Armie L.K. "Avalon". Szcze¬ 
góły na ostatniej stronie pisma. 
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Gra polega na tym, by w Jak najmniejsze) liczbie ruchów uło¬ 
żyć w kolejności liczby od 1 (lewe górne okienko) do 16 (prawe 
dolne). Prócz okienek z liczbami na planszy widnieją również 
pokrętła (literki w negatywie) Pokręcanie nimi powoduje "ob¬ 
rót" liczb w czterech najbliższych mu okienkach Wyboru po¬ 
krętła dokonujemy przez naciśnięcie klawisza z odpowiednią li¬ 
terką, zaś kręcenie odbywa się za pomocą strzałek w prawo 
1 w lewo bez CONTROL) Klawisz H powoduje wylosowanie no¬ 
wego układu, zaś ESC - przerwanie gry 1 powrót do DOS-u, Sa 
modzlelny program binarny uzyskujemy po przetworzeniu po¬ 
niższego listingu Zgrywusem+ z TA 1/92 


IJ 1000 REM *-* 

CS 1002 REM : Wiro-Puzzle : 
NU 1004 REM : autor: Adam Salamon : 
YY 1006 REM : (c) 1992 Tajemnice ATARI : 

JP 1008 REM *-* 

BI 1010 DATA ffff0090dl92d820ba9138a5cb 
KT 1020 DATA e96885cba5cce90385cca000a9 
BN 1030 DATA dl91cba9d2c89Icbc015d0f7c8 
VX 1040 DATA a9c59lcba21118a5cb692 885cb 
RU 1050 DATA 9002e6cca9fca00091cba01691 
PH 1060 DATA Cbcad0e8a028b9 7392 9Icbc8c0 
PC 1070 DATA 3fd0f638a5cbe95685cba5cce9 
MF 1080 DATA 0285cca90485cea90485eda003 
MF 1090 DATA a20cbdbl929Icb88ca£00c8a29 
OO 1100 DATA 03d0£29818692ca8d0eb9838e9 
OZ 1110 DATA 47a8c6cdd0e018a5cb69a085cb 
GU 1120 DATA 9002e6ccc6ced0cba900aSa204 
WU 1130 DATA 18a55879c39299c39285cdc8a5 
BJ 1140 DATA 5979c39299c39285cec8bdbe92 
ZK 1150 DATA 8404a00091cda404cal0dbl8a5 
DL 1160 DATA 5869348504a5596903850538a5 
DS 1170 DATA cbe97b85cbb002c6cca9918dd2 
YY 1180 DATA 92a9908dd3928dd4928dd592a0 
HE 1190 DATA 209899c59288c010d0f7a204ca 
DV 1200 DATA ded292bdd292c98fd007a9999d 
LM 1210 DATA d292d0eead0ad22907c905b0f7 
HG 1220 DATA a8ad0ad22901aa201d92a01488 
RM 1230 DATA 10fd207a9220dc91a990cdd292 
WU 1240 DATA d0c7cdd392d0c2cdd492d0bdcd 
FP 1250 DATA d592d0b8a9ff85cf20f8f2c91b 
MY 1260 DATA d00820ba91a9008S5460297fc9 
WA 1270 DATA 2af004c92bd02824c£30e32901 
YI 1280 DATA aaa4cf201d92a203fed292bdd2 
PS 1290 DATA 92c99ad008a9909dd292cal0ee 
LT 1300 DATA 20dc91207a9230bf295fc948d0 
FJ 1310 DATA 0da5cfl0034cd3902085924cd3 
PJ 1320 DATA 90a004d9cd92£0108810£8a5cf 
KG 1330 DATA 309e208592a9ff85cfd095c4c£ 
TG 1340 DATA f09198aaa5cf30032085928a85 
FR 1350 DATA cf208592d080a55885cba55985 
BG 1360 DATA Cca217a900a02791cb8810fbl8 
FL 1370 DATA a5cbć92885cb9002e6cccal0e9 
YO 1380 DATA 60a5cb8500a5cc8501a20fa014 
PD 1390 DATA a90085cdbdd69285cec91a9008 
AT 1400 DATA e90a85cea91185cda5ce910088 
QY 1410 DATA a5cd9100ca301388888888d0d9 
YG 1420 DATA 38a500e9a08500b0cec601d0ca 
LX 1430 DATA 60980aa8c0039006c8c0079001 
TV 1440 DATA C8e000d026b9d692c8bed69299 
LS 1450 DATA d6928ac8c8c8c8bed69299d692 
VS 1460 DATA 8a88bed69299d6928a88888888 
PZ 1470 DATA 99d69260b9d692c8c8c8c8bed6 
VK 1480 DATA 9299d6928ac8bed69299d6928a 
LG 1490 DATA 88888888bed69299d6928a8899 
HA 1500 DATA d69260a003b9d29291048810f8 
RH 1510 DATA 600aa8b9c39285cdc8b9c39285 
PG 1520 DATA cea000blcd498091cd60dad2d2 
KD 1530 DATA d2d2d2d2b2f5e3e89a90999999 
KE 1540 DATA d2d2d2d2d2d2c35a5252437c00 
SQ 1550 DATA 007c51525245a3bab3a5bl2601 
FH 1560 DATA 3001cb01660270025145535a43 
ET 1570 DATA e202e3020090 


W TA 4/92 prezentowym był TOS - system "turbo" dla mag¬ 
netofonu. Wydrukowany poniżej program służy do ładowania 
gier zapisanych w standardzie TOS-a. Aby otrzymać samodziel¬ 
ny program typu "boot", należy posłużyć się Mtnl-zgrywusem 
lub Zgrywu sem W (ym ostatnim wybieramy opcję "format pliko¬ 
wy" i nagrywamy program na kasecie z systemem turbo 


HJ 

CL 

PQ 

YY 

JP 

KN 

IC 

NI 

PO 

OU 

IM 

ZB 

BE 

UB 

EV 

JE 

CQ 

PP 

TS 

RN 

CV 

AR 

GQ 

YC 

FO 

SK 

PP 

EG 

QR 

WF 

DA 

GG 

MY 

CJ 

JM 

HL 

CQ 

EV 

UB 

RR 

IA 

OU 

MB 

IO 

QC 

FR 

CF 

£X 

QO 

BP 

VH 

RB 

YO 

RP 

TX 

OH 

BU 

BB 

OE 


1000 

1002 

1004 

1006 

100B 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1500 

1510 

1520 

1530 

1540 


REM *-,-* 

REM : autor: Witold Sciuk : 


REM : TOS Gamę Loader : 

REM : (c) 1992 Tajemnice ATARI : 

REM *-* 

DATA 0506f 60a060d184cd6 fd000700 
DATA 00000000 20cef0cb00ca9ff8d 
DATA fC0220990ba90320£c£d303a20 
DATA 780ba95420590b3030a00220f4 
DATA 0b3029 50f09118c8c00bd0£248 
DATA a93c8d02d38d03d3ad01d30901 
DATA 8d01d3a9408d0ed4a51009808d 
DATA 0ed26858604c530c8500a9ff85 
DATA 3020eb0b30£2c500d0£3a98085 
DATA 3020f40b30e550e8c93ad0e460 
DATA a9 34 8d02d38d03d3a51009808d 
DATA 0ed2aS008d0ed48d00d478ad01 
DATA d329fe8d01d360ae000b8618ae 
DATA 010b8619a90385366048e618d0 
DATA 02e619ee020bd003ee030bae02 
DATA 0bec040bad030bed050b689009 
DATA a2008e020b8e030b60a2016018 
DATA 20990ba900aaa871189001e8c8 
DATA d0£8e619c6 3610£0c619 60a9 28 
DATA 8534 209 90ba000a9088d020ba2 
DATA 00ad0fd22910f01085404a8dla 
DATA d02c0ed21046e8d0eb£00f8dla 
DATA d0a540f0efa9008540e0339006 
DATA 24 3070C6 501fe009b004c6 3 4d0 
DATA cce434a919b002a9118534661c 
DATA ce020bd0b9a51c2cce0b605066 
DATA 20360b2056f520f8f210092036 
DATA 0ba08060ee060b20780ba95820 
DATA 590b30ed20£40b50ddcd060bd0 
DATA ef20f40b50d3c9£e8500d0034c 
DATA 360b20£40b50c5851a20£40b50 
DATA be851b20f40b30c250b59118c8 
DATA d0£4e619c6 3610ee20360b20d2 
DATA 0bc51ad0a3e41bd09fa500a001 
DATA 60ad030b0d020bd01c20590c08 
DATA C9fe£01e28301ac9fc£00a8d05 
DATA 0ba0££bl188d040b20990ba200 
DATA all820a80ba0016068a08860a9 
DATA 048d050ba9008d040b200d0ba0 
DATA 0160a250a9008d98038d9 90320 
DATA 56e410034c740d60a0aea90d8c 
DATA e7028de80220a2 0da9 ab8d9 403 
DATA a90d8d9503adf60a8d9a03a903 
DATA 8d9 203a2502056e4 30d3a9008d 
DATA e202 8de3028d98038d9 903a907 
DATA 8d920320£30c8d940320£30c8d 
DATA 95032d9403c9fff0da20f30c85 
DATA le20f30c851fa207207e0d300e 
DATA ade2020de302 f0c1209 f0d4c2 f 
DATA 0dc088d0036ce0024c23£238a5 
DATA leed9 403a8a5lfed9 503c8088c 
DATA 9803a828d001c88c99038e9203 
DATA a2504c56e46ce202a25aa90ba0 
DATA 074cbcee5a3a9b009b 
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komputer sam przełączy magnetofon i rozpocznie się ładowa¬ 
nie gry. Cl, którzy mają magnetofony przełączane ręcznie, mu¬ 
szą zmtentć pierwszy bajt programu z 05 na 04 i dopiero wte¬ 
dy użyć Zgrywu sa Tak zmodyfikowany program po podaniu 
sygnału zatrzyma silnik, dając czas na przełączenie magneto 
fonu. Wystarczy następnie nacisnąć dowolny klawisz w kom 
puterze dla kontynuacji ładowania gry 


Witold Ścluk 
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W poprzednim odcinku zajmowaliśmy się słowem 
WORD. Było ono używane do wprowadzania dowolne¬ 
go ciągu znaków do komputera. Wielu czytelników za¬ 
uważyło zapewne, że nie da się użyć tego słowa do 
wprowadzania tekstu w czasie wykonywania progra¬ 
mu, gdyż nie czeka ono na wykonanie tej czynności. 
Aby tego dokonać, można wykorzystać słowo QUERY, 
Słowo to czeka na wprowadzenie tekstu o długości 
mniejszej od 80 znaków. Umieszcza tekst w buforze 
terminalu, skąd można go przesłać w Inne miejsce. Ad¬ 
res bufora terminalu można odczytać ze zmiennej TIB 
Słowo to jest wykorzystywane przez system operacyjny 
języka FORTH Użycie go wewnątrz programu wprowa¬ 
dzi tekst do bufora terminalu, lecz zaraz po tym system 
FORTH-a będzie się starał zinterpretować tekst jako 
nazwę słowa ze słownika, Takie działanie spowoduje 
prawie zawsze sygnalizację błędu. Aby tego uniknąć, 
należy bezpośrednio za QUERY zastosować słowo 
WORD, które przyjmuje tekst spod TIB Jako nową na¬ 
zwę Przykład: 

: INPUT$ QUERY 155 WORD HERE ; 

Nasze nowo zadeklarowane słowo wprowadza tekst 
(az do znaku o kodzie 155, czyli RETURN) pod adres, 
który wyprowadzi na stos słowo HERE. Adres ten bę¬ 
dzie zostawiany na stosie po każdym użyciu słowa IN- 
PUT$. Sprawdźmy: 


: TEST INPUT$ CR COUNT TYPE ; EBEEEI 

Po wykonaniu słowa TEST komputer będzie czekał 
na wprowadzenie tekstu, a następnie wyświetli go 
w nowej linl. Słowo INPUT$ działa podobnie jak In¬ 
strukcja INPUT ze zmienną tekstową w Atarl Basic. 
Stworzyliśmy słowo wprowadzające dowolny tekst, co 
jednak uczynić, gdy wprowadzamy liczbę? Gdyby użyć 
tylko słowa INPUT$, mielibyśmy dostęp do liczby zapl 
sanej w formie ciągu cyfr. Aby uzyskać zamianę tego 
ciągu na wartość, należy użyć słowa NUMBER Słowo 
to przekształca ciąg cyfr, poprzedzonych bajtem długo¬ 
ści, na wartość. Parametrem wejściowym tego słowa 
jest adres początku ciągu znaków, a wartością wyjścio¬ 
wą, pozostawioną na stosie, są dwie liczby określające 
wartość ciągu cyfr. Słowo NUMBER przekształca zapis 
na liczbę 4-bajtową. co możemy odczytać Jako dwie li¬ 
czby 2-bajtowe Gdy korzystamy tylko z zakresu miesz¬ 
czącego się w dwóch bajtach (a tak jest najczęściej), 
kasujemy słowem DROP liczbę 0 ze szczytu stosu 
1 wykorzystujemy jedynie liczbę znajdującą się niżej 

Stwórzmy teraz słowo wprowadzające liczbę z kla¬ 
wiatury 1 zostawiające jej wartość na stosie- 

* INPUT INPUT? NUMBER DROP ; hlzHIl.KI 

i sprawdźmy pisząc. 

input . aasaa 

DZIAŁANIA NA BLOKACH PAMIĘCI 

W powyższym opisie, dotyczącym słów wprowadzają¬ 
cych ciąg znaków, wspomniałem o przenoszeniu go 
w Inne miejsce. Na szczęście, nie trzeba tworzyć w Języ¬ 
ku FORTH słowa wykonującego to zadanie, gdyż posła 
da on Je w słowniku Słowo to ma nazwę CMOVE 1 wy¬ 
maga trzech liczb jako parametrów wejściowych. Pier¬ 
wsza liczba określa adres, spod którego pobieramy da¬ 
ny blok pamięci Druga - to adres docelowy, a trzecia 
określa długość przenoszonego bloku. Aby sprawdzić 
jego działanie, wyczyśćmy ekran (SHIFT 1 CLEAR) 
Następnie w lewym górnym rogu ekranu piszemy do¬ 
wolne zdanie np. Ala ma kota. Nie zatwierdzając napi¬ 
su klawiszem RETURN przenosimy kursor przy pomo¬ 
cy kilku naciśnięć klawisza BREAK w dolną część 
ekranu. Po tych czynnościach piszemy: 

88 @ DUP 80 + 40 CMOVE ĘHDEEI 

Nasz napis przeniesiony został o dwie linie niżej. Sło¬ 
wo CMOVE jest napisane w języku maszynowym, po¬ 
siada więc bardzo dużą szybkość działania 1 znajduje 
szerokie zastosowanie. Uwaga. CMOVE zaczyna prze¬ 
noszenie od pierwszego baj tu 1 przesuwa działanie ku 
wyzszym adresom Jeżeli adres docelowy jest wyzszy 
od adresu pobrania o małą wartość 1 obszary w związ¬ 
ku z tym częściowo się pokrywają, dochodzi do utraty 
części danych. W takich sytuacjach należy stosować 
słowo CMOVE> występujące w niektórych Implemen¬ 
tacjach języka FORTH Niestety, w Extended fig 
FORTH nie ma go w słowniku 1 należy je stworzyć sa¬ 
memu Zajmiemy się tym podczas omawiania AS- 
SEMBLERA FORTH-a. 
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Często podczas programowania zachodzi potrzeba 
wypełniania pewnego obszaru pamięci tą samą warto¬ 
ścią. Funkcję tę spełnia słowo FILL Piszemy: 

88 g 960 33 FILL liłflhlCTI 

Po wykonaniu powyższej sekwencji cały ekran został 
wypełniony literami A. Pierwszym parametrem słowa 
FILL (88 @) był adres początku wypełnianego obszaru. 
Drugi (960) - to długość tego obszaru, a trzeci - war¬ 
tość wypełniania. W języku FORTH Istnieją jeszcze 
dwa słowa zbudowane w oparciu o słowo FILL. Są to: 
ERASE oraz BLANKS . 

Oba potrzebują jako parametr wejściowy adres ob¬ 
szaru oraz jego długość. Pierwsze z nich wypełnia po¬ 
dany obszar zerami (czyszczenie), a drugie kodami 
spacji. 

EDYTOR WPROWADZANIA 

Poznane do tej pory słowa języka FORTH, umożliwią 
nam tworzenie dłuższych programów. Niestety, wpro¬ 
wadzenie nawet kilku wierszy w trybie bezpośrednim 
Jest bardzo uciążliwe, gdyż trudno ustrzec się od błę¬ 
dów. Także tworzone słowa musiały mieścić się 
w dwóch liniach. Aby usunąć te niedogodności 1 uła¬ 
twić czytelnikom wprowadzanie dłuższych programów 
w języku FORTH, przedstawiam poniżej Edytor Wpro¬ 
wadzania Spełnia on tą samą funkcję jak Generator 
Kodów Kontrolnych w języku Basic. Działanie EDW 
( Edytora Wprowadzania ) jest jednak nieco Inne. Pod¬ 
stawową różnicą jest konieczność wprowadzania ko¬ 
dów kontrolnych razem z danymi. Dzięki tej zmianie 
komputer zajmuje się kontrolowaniem poprawności, 
nie ma więc możliwości wprowadzenia błędnego zapi¬ 
su. 

Aby zainstalować edytor, należy wklepać poniższe se¬ 
kwencje do komputera, oczywiście po wczytaniu 
FORTHa. Podczas tych czynności nie będziemy mieli 
żadnej kontroli poprawności wprowadzanego tekstu, 
należy więc robie to ze szczególną uwagą. Wprowadza¬ 
nie odbywać się będzie w trybie bezpośrednim, czyli 
w takim. Jaki używaliśmy do wprowadzania prezento¬ 
wanych przykładów. Każda z sekwencji zaczyna się na 
początku linii, a kończy znaczkiem (RE), gdzie oczywi¬ 
ście należy nacisnąć RETURN. Każdy takt zapis wpro¬ 
wadzamy jednym ciągiem az do (RE), nie zwracając 
uwagi na miejsce przeniesienia do nowej linii. Wszyscy 
posiadacze magnetofonów powinni najpierw wpisać: 

0 WARNING ! 

Właściciele stacji dysków wkładają do stacji dyskiet¬ 
kę z językiem FORTH. Jeżeli pojawi się napis "ok”, mo¬ 
żemy wprowadzać następną sekwencję, gdy to nie na¬ 
stąpi, musimy spróbować jeszcze raz. Można popra¬ 
wiać błędny zapis widniejący jeszcze na ekranie, należy 
jednak wtedy usunąć komunikat o błędzie, ustawić 
kursor wewnątrz napisu i nacisnąć klawisz RETURN. 
Uwaga na spacje! A więc do dzieła: 

( EDYTOR WPROWADZANIA ) 

: <=< OVER > >R < R> * ; HSCEgl 


37000 CONS ’ANT ADO kWIlilM 
0 VARIABLE AB I.DHIkDI 
0 VARIABLE *K GHjjEg) 

0 VARIABLE LIN l.miKKI 
0 VARIABLE EN l:WII:lfl 
: AF ADO AB @ + ; EHEEE3 
: B32 32 BASE ! ; ęHjjĘg) 

: NK IF 0 0 ELSE B32 AF NUMBER DECIMAL 1024 
U/ ENDI ; CHDEgl 

: NI 0 AF COUNT OVER + SWAP ; I.Hlll;!?) 

: NU NI DO I Cg 47 OVER 58 <=< 64 ROT 87 
<=< + 0= + LOOP NK ; CHEES) 

: KO 1 *K +! Cg *K g * EN +! + 1024 MOD ; GHjjĘg] 

: KI DO I KO I Cg 0= IF I 38 BLANKS LEAVE 

ENDIF LOOP ; Emnaa 

: KP 0 *K ! 4 AF C! 32 AF 5 + C! NU 0 EN ! : I;I11II;H 

: KOD= KP >R >R 0 AF 38 + AF 6 + KI R> = R> 

LIN g = SWAP OVER * ; nTdlrPI 
: ,R2 0 <# # # #> TYPE SPACE ; GffljEC] 

: ?L LIN g B32 .R2 DECIMAL ; I,WII:1H 
: WP 125 EMIT 1 LIN +! .” Wprowadź linie 

■ ?L cR cR ; Emnaa 

: ?DOB DROP AF 6 + AF 32 CMOVE 32 AB +! WP 

i ; (Mim 

: ?Z CR CR AF 1+ 37 TYPE 155 EMIT 28 EMIT 

o ; EEmnra 

: LL . ” Teraz ma byc linia ” ?L ; i.mikui 
: ?ZLE 125 EMIT 0= IF LL ELSE ." Popraw:” 

ENDIF ?Z ; EHEEg] 

: KO KOD= IF ?DOB ELSE ?ZLE ENDIF EN g 1442 

= * ; GHMffl 

: GO 125 EMIT CR GOTOWE!” CR ; 

: El 1 82 C! 0 AB ! 0 LIN ! WP ; ĘHjjĘg] 

: BBL AF 1024 AB g OVER MOD - DUP AB +1 
BLANKS ; l.lflligl 

: EDW El BEGIN AF 39 ERASE AF 1+ 37 EXPECT 
KO UNTIL BBL GO ; [,|all|,1!| 

Poniższe słowa wprowadzają tylko właściciele stacji 
dysków. 


A kolejne właściciele magnetofonów. 

1 VARIABLE CD l;Hdtl:l?l 

: —> o cd • ; rremira 

: BF< 16 8 DO DUP I 8 - B/BUF * + I BUFFER 
B/BUF CMOVE LOOP DROP ; GHjjĘg] 

: EL EMPTY-BUFFERS DUP BF< 1 CD ! 1 LOAD ; EHjjĘg) 
: EDW-COMP ADO 0 WARNING BEGIN EL 1024 + CD 
g UNTIL DROP ; l.mUTI 

Jeżeli wszystko przebiegło poprawnie. Jesteśmy od 
tej pory szczęśliwymi posiadaczami Edytora Wprowa¬ 
dzania. No, nie całkiem, gdyż należy pamiętać o utrwa¬ 
leniu naszej pracy słowem SAVE na dysk lub CSAVE 
na kasetę. Uwaga: w llnl zaczynającej się od : --> po 
zatwierdzeniu klawiszem RETURN, pojawi się napis 
MSG # 4 lub "Isn’t unląue". a dopiero na końcu "ok". 

Nie należy się tym przejmować, gdyż komunikat Infor¬ 
muje o deklaracji słowa o nazwie będącej już w pamię¬ 
ci. Edytor wywołujemy pisząc EDW. W tym momencie 
pojawi się napis: "Wprowadź linię 01", podajemy więc 
linię, której kod zaczyna się od 01. Wprowadźmy na 
próbę znane nam słowa: 


: BSAV OVER + SWAP DO DUP I 0 R/W B/BUF 
+ LOOP DROP ; CHEEU 

: EDW—SAVE ADO SWAP B/SCR * AB g B/BUF 
/ BSAV ; lireHETO 
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OHM ( OZEGAR! ZEGARl ) 

0200 

03SM : OZEGAR! O 19 ! ; 

04HN : ZEGARi 20 C§ 19 Cl 256 * ; 

05D2 ( END ) 

Pierwsza linia zawiera komentarz który będzie na 
główkiem ekranu. Ostatnia zawiera Instrukcję wyjścia 
z edytora. Po wprowadzeniu każdej linii należy nacis¬ 
nąć RETURN Jeżeli edytor nie zawiera błędów, to po 
wpisaniu z jego pomocą powyższych linii, pojawi się 
napis GOTOWE!. 

W tym momencie właściciele magnetofonów mogą 
skompilować wprowadzeń tekst słowem 
EDW-COMP a następnie zapisać na taśmę za pomocą 
CSAVE. 

Posiadacze stacji dysków, magą zapisać program 
w wersji źródłowej słowem EDW-SAVE 

Uwaga: przed wywołaniem tego słowa należy podać 
numer ekranu, od którego program zostanie zapisany 
Przypominam, że ekrany mogą mieć numery od 1 do 
87 Aby skompilować tak zapisany program źródłowy, 
należy użyć sekwencji: 

NRekr LOAD GHEEEI 

W miejsce NRekr wstawiamy numer ekranu, od 
którego program został zapisany Wszystkim posia¬ 
daczom stacji dysków polecałbym wpisanie tekstu 
źródłowego Edytora Wprowadzania, przy pomocy te¬ 
go edytora wprowadzonego wcześniej w trybie bezpo 
średnim. Następnie zapisujemy tekst źródłowy na 
czystym dysku sformatowanym w gęstości S lub E, 
pisząc np. 5 EDW-SAVE . Od tej pory będziemy mo¬ 
gli dołączać edytor do FORTHa przez wywołanie 
5 LOAD Tekst edytora (tym razem juz z kodami) za¬ 
mieszczam poniżej. 

01J5 ( EDytor Wprowadzania ) 

0200 

03E5 ( w jeżyku FORTH ) 

0400 

05CO ( autor: Roland Pantola ) 

065T ( [c] 1992 Tajemnice Atari ) 

0700 

08JG : <=< OVER > >R < R> * ; 

09NK 37000 CONSTANT ADO 
0AM1 0 VARIABLE AB 
0BH2 0 VARIABLE *K 
0CV4 0 VARIABLE LIN 
0DSD 0 VARIABLE EN 
0EA7 : AF ADO AB I + ; 

0FHP : B32 32 BASE ! ^ 

0G0V : NK IF 0 0 ELSE 832 AF NUMBER 
0HL8 DECIMAL 1024 U/ ENDIF ; 

0IH0 : NI 0 AF COUNT OVER + SWAP ; 

0JM9 : NU NI DO I Cl 47 OVER 58 <=< 

0KA0 64 ROT 87 <=< + 0= + LOOP NK ; 

0LRU : KO 1 *K +! Cl *K I * DUP EN 

0M6V +! + 1024 MOD ; 

0N6A : KI DO I KO 

0O3M I Cl 0= IF I 38 BLANKS 

0PPI LEAVE ENDIF LOOP ; 

0QPL : KP 0 *K ! 4 AF C! 

0R90 32 AF 5 + C! NU 0 EN ! ; 


0SH5 : KOD= KP >R >R 0 
0T5M AF 38 + AF 6 + KI 
0U42 R> = R> LIN I = SWAP OVER * ; 

0VA1 —> 

1000 

1100 

1200 

13LJ : .R2 0 <# # # #> TYPE SPACE ; 

1496 : ?L LIN I B32 .R2 DECIMAL ; 

15EG : WP 125 EMIT 1 LIN +! 

1661 Wprowadź linie " ?L CR CR ; 

17G4 5 ?DOB DROP AF 6 + AF 32 
18G7 CMOVE 32 AB +! WP 1 ; 

19B4 : ?Z CR CR AF 1+ 37 TYPE 
1AHM 155 EMIT 28 EMIT 0 ; 

1BS2 : LL .” Teraz ma byc linia " 

1CH3 ?L ; 

1DB4 : ?ZLE 125 EMIT 0= IF LL 
1EFF ELSE ." Popraw:" ENDIF ?Z ; 

1F0F : KO KOD= IF ?DOB ELSE ?ZLE 
1GTQ ENDIF EN I 1442 = * ; 

1HH8 : GO 125 EMIT 
1IK1 CR GOTOWE!" CR ; 

1JIS : El 1 82 C! 0 AB ! 0 LIN ! 

1KI3 WP ; 

1LGM : BBL AF 1024 AB I OVER MOD - 
1MT2 DUP AB +! BLANKS ; 

1N00 

lOMD : EDW El BEGIN AF 39 ERASE AF 

1PIP 1+ 37 EXPECT KO UNTIL BBL GO ; 

1Q00 » 

1RK4 ( - 

1SVG ( wlacza edytor wprowadzania ) 

1T00 

1UA1 —> 

1V00 

2000 

2 IIP ( EDW—SAVE ) 

2200 

23MA : BSAV OVER + SWAP DO DUP I 0 
24TK R/W B/BUF + LOOP DROP ; 

2500 

26IP : EDW—SAVE ADO SWAP B/SCR * 

27RN AB I B/BUF / BSAV ; 

2800 

29QK ( NREK - 

2AJ8 ( zapisuje wprowadzony blok na 
2BEB ( dysk od ekranu numer NREK 
2CD2 ( END ) 

Uwaga! Edytor Wprowadzania nie będzie działał 
w ELKOMP-FORTH, gdyż Implementacja ta nie posia¬ 
da możliwości poprawiania wprowadzanego tekstu. 
Najlepszym wyjściem Jest wprowadzenie edytora w Im¬ 
plementacji Extended fig FORTH. Posiadacze magneto¬ 
fonów powinni poszukać tej Implementacji u kolegów 
ze stacją dysków, a następnie nagrać na kasetę sło 
wem CSAVE. 


Proszę o listowne relacje z prób Instalowania EDW 
w swoich komputerach. 
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W TA 3/92 ukazał się program do digitalizacji 

dźwięku w oparciu o magnetofon z TURBO 2000. 

Ci, którzy nie mają TURBO mogą małym kosztem 
wykonać własny dlgitalizer, 

Konieczne będzie zdobycie dwóch kabelków od joy¬ 
sticka (jeden z przewodem zasilającym, od takiego 
z autofire) i krajowego układu UL 1980. 

Na początku należy znaleźć odpowiednie przewody 
w kabelku od joystick-a 

1 Pomocny będzie program 
10 ?STICK(0):G.10 

2 Najpierw określamy przewód - masę Zwieramy 
wszystkie przewody (oprócz +5V) i oddzielamy Jeden. 
Powtarzamy tę czynność, dopóki nie pojawi się wartość 
15, co oznacza, ze ten ostatni - to masa. 


3. Korzystamy z krzyża wartości 



Zwierając teraz resztę przewodów z masą, odczytuje¬ 
my wartości i lutujemy z odpowiednią nozką układu 
scalonego (np 7=lewol=nózka 9, 13=dółl =nóżka 
10 ) 



Ze względu na brak wzmacniacza wstępnego sygnał 
bierzemy z głośnika magnetofonu lub gniazda słucha¬ 
wkowego. Ma to swoje zalety (niski koszt, możliwość 
użycia korektora graficznego, jeśli takowy posiadamy 
w zestawie) i wadę (galwaniczne połączenie sprzętu au¬ 
dio z komputerem.) 

UWAGA: Dlgitalizer podłączamy równolegle do głoś 
nika (słuchawki). Jeżeli obciążeniem wzmacniacza bę¬ 
dzie jedynie sampler, należy zamiast głośnika podłą¬ 
czyć rezystor z zakresu 100-2000 omów 

Lecz interfejs to nie wszystko, potrzebny Jest także 
program go obsługujący. 

SP 10 DIM A$(26) 

AF 15 A=1536:MJN=52:POKE 106,MIN:POCZ=MIN 
*256:KON=0:GRAPHICS 0 

UY 16 REM WATROSC MIN ŻALEZY OD ZAINSTALO 
WANEGO SYSTEMU (DLA DOS 2.5+CP MIN=52) 

RT 20 TRAP 100:READ A$:1=1:TRAP 20 
WO 30 B=ASC( A$ ( I )) -48:B=B-(B>9 ) *7 
PT 40 C=ASC (A$ (1+1) ) -48 :C=C— (09 ) *7 
YF 50 1=1+2:P0KE A,B*16+C:A=A+1:G0T0 30 
TD 100 POKE 764,255:? " START-DIGITALIZA 
CJA” :? " SELECT-ODTWARZANIE":? " OPT 
ION-POWTARZANIE■ 

CK 110 B=PEEK{53279):A=(B=6)+(B=5 OR B=3) 

*94 

PU 120 IF A=0 THEN 110 

IC 130 TRAP 130:? "SZYBKOSC”:INPUT SZYB 
KI 140 I=USR(1536+A-l,POCZ,KON,SZYB) 

LN 150 IF B=3 AND PEEK(53769)<>28 THEN 14 
0 

LS 160 GOTO 100 

EA 1000 REM-DIGI.OBJ- 

LG 1010 DATA 68A000BEBF06B9C8069D0004CA 
QJ 1020 DATA D0FAC8C009D0EF8D0004A20568 
BL 1030 DATA 95CBCA10FA20B006204906AD09 
YX 1040 DATA D2C91CF05FC921D0F220490629 
ML 1050 DATA 0F91CF2049060A0A0A0A11CF91 
FJ 1060 DATA CF209706D0E9F042AE00D3BD00 
SN 1070 DATA 0409108D01D28D1AD0A6CBCAD0 
LG 1080 DATA FD6068A2056895CBCA10FA20B0 
WK 1090 DATA 06A000B1CF204F06B1CFB1CF4A 
MP 1100 DATA 4A4A4A204F06B1CFA5CFAE09 D2 
BE 1110 DATA E01CF005209706D0DEA9FD8D01 
YM 1120 DATA D3A9FF8D0ED4 5 8 60E6CFD002E6 
BV 1130 DATA D0A5D0C9D0D004A9D885D0C5CE 
HR 1140 DATA D004A5CFC5CD6078A9008D0ED4 
AT 1150 DATA 8D00D4A9FE8D01D360FFFEFDFB 
MT 1160 DATA F7EFDFBF7F0001020304050607 
JO 1170 DATA 08 

Start - próbkowanie 

Mamy możliwość doregulowania głośności, barwy to¬ 
nów i po korekcie klawisz SPACJA - rozpoczęcie digi¬ 
talizacji 

ESC - rezygnacja i wyjście 

Select - odtworzenie sampla 

ciekawe efekty przy zmianie parametru szybkość 

Dane zapisywane są także w RAM pod BASICem i OS 
ROM 

Jeśli podczas przetwarzania występują duże trzaski, 
świadczy to o błędnym podłączeniu przewodów z ukła 
dem lub zamiany wtyków joysticka w portach. 
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Jeżeli czytelnicy chcieliby napisać własne proce 
durki, to powinni pamiętać, ze konieczne jest dokładne 
odmierzanie czasu. Uzyskujemy to poprzez: 


• wyłączenie przerwań 1 ekranu 

• przy włączonym ekranie synchronizujemy się z ko¬ 
mórką $d40b($d40a) 

• używamy przerwań liczników POKEY (możliwe jest 
nawet uzyskanie dwóch sampli (np program DIGI 
DRUM), 

SCHEMAT SAMPLERA 

ze źródła (magnetofonu, wzmacniacza) 

1 - gniazdo 1 joysticka 

2 - gniazdo 2 joysticka +su 
Z - ząbek (wycięcie) 

L - Lewo 
P - Prawo 
G - Góra 
D - Dół 

1 - Portl 

2 - Port2 

MASA P L D G P L 

2 2 2 2 11 

* Listing źródłowy DIGI.OBJ 

* (przykład wykorzystania 

* zawarto w DIGI.BAS) 


ME' ' 


18 

Z 


ł 


U 


i i 
G P 

li 



LIST 

EQU 

%11 


PAM 

EQU 

%10000 


EKR 

EQU 

%100 


DOS 

EQU 

%100000 



OPT 

LIST+DOS 


ZMIEŃ 

EQU 

$400 


OPOZ 

EQU 

$CB 


KON 

EQU 

OPOZ+2 


POCZ 

EQU 

OPOZ+4 


*-ADRESY 

W OS 


KBCODE 

EQU 

$D209 


NMIEN 

EQU 

$D40E 


PORTB 

EQU 

$D301 


DMACT 

EQU 

$D400 



org 

$600 


DIGI 

PLA 




LDY 

#0 

Korzystamy z portu 

SKOKI 

LDX 

KOD, Y 

PIA i potrzebne są 


LDA 

KOD+9,Y 

odpowiednie prze¬ 

SKOK2 

STA 

ZMIEŃ,X 

liczenia na wartość 


DEX 


głośności. 


BNE 

SKOK2 

Tworzymy tebelę 


INY 


kodów i odwołujemy 


CPY 

#9 

się do niej 


BNE 

SKOKI 

w procedurze WAR. 


STA 

ZMIEŃ 


* Właściwa 

procedura digitalizacji 


* Wywołanie l=USR(1536,POCZ,KON,SZYB) 

* pocz - początek pamięci na kod 

* kon - koniec -II- -II- 

* szyb - 0.. 255 (l=najwierniej), 

* optymalnie 40 (trzeba pogodzić ilość 

* zajętej pamięci z jakością dźwięku) 


LDX #5 


SKOK 

PLA 

PRZEPISZ PARAMETRY 


STA 

OPOZ,X 


DEX 



BPL 

SKOK 


JSR 

ZABLK 

SKOK3 

JSR 

VJAR 


LDA 

KBCODE 


CMP 

#28 ESC=PRZERWANIE 


BEQ 

ODBLK 


CMP 

#$21 SPAĆJA=POC ZĄTEK 


BNE 

SKOK3 PRZETWARZANIA 

SKOK4 

JSR 

WAR 


AND 

#$0F 


STA 

(POCZ),Y 


JSR 

WAR 


ASL 

8 wykorzystujemy 


ASL 

8 drugą 


ASL 

8 połówkę 


ASL 

8 komórki. 


ORA 

(POCZ),Y 


STA 

(POCZ),Y 


JSR 

WZROS 


BNE 

SKOK4 


BEQ 

ODBLK 

WAR 

LDX 

$D300 


LDA 

ZMIEŃ,X 

WARI 

ORA 

#$10 USTAW BIT 4 AUDIFREQ 


STA 

$D201 


STA 

$D01A 


LDX 

OPOZ 

SKOK5 

DEX 



BNE 

SKOK5 


RTS 


*PROC. 

ODTWARZANIA 


*I=USR(1629,POCZ,KON,OPOZ) 


GRAJ PLA 

LDX 

#5 

SKOK6 PLA 

STA 

OPOZ,X 

DEX 

BPL 

SKOK6 

JSR 

ZABLK 

PLAY LDY 

#0 

LDA 

(POCZ),Y 

JSR 

WARI 

* DODATKOWE CYKLE,ABY CZASY WYKONYWA- 

* NIA PLAY 

I GRAJ BYŁY RÓWNE. 

LDA 

(POCZ),Y 

* KONIEC 

LDA 

(POCZ),Y 

LSR 

8 

LSR 

8 

LSR 

8 

LSR 

8 

JSR 

WARI 

* CYKLE 

LDA 

(POCZ),Y 

LDA 

POCZ 

* KONIEC 

LDX 

KBCODE 

CPX 

#$1C ESC=PRZERWIJ 

BEQ 

ODBLK 

JSR 

WZROS 

BNE 

PLAY 

ODBLK LDA 

#253 

STA 

PORTB 
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tal 


mam 



LDA #$FF 
STA NMIEN 
CLI 
RTS 


STA NMIEN 
STA DMACT 
LDA #254 
STA PORTB 
RTS 


BASIC-em i OS ROM. 
wyłącza ekran w celu 
dokładnego odliczania 
czasu. 


WZROS 

INC 

POCZ 





BNE 

SK1 


kod dta 

a($feff) 


INC 

POCZ+1 


dta 

a($fbfd) 

SK1 

LDA 

POCZ+1 


dta 

a($eff7) 


CMP 

#$D0 


dta 

a($bfdf) 


BNE 

SK2 


dta 

a($7f) 


LDA 

#$D8 i 

□miń blok układów 1/0 

dta 

a($0201) 


STA 

POCZ+1 


dta 

a($0403) 

SK2 

CMP 

KON+1 


dta 

b(5) 


BNE 

SK3 


dta 

b( 6) 


LDA 

POCZ 


dta 

b(7) 


CMP 

KON 


dta 

b( 8) 

SK3 

RTS 









END 


ZABLK 

SEI 


zablokuj przerwania 




LDA 

#$00 

i podłącz RAM pod 




Tomasz Bech 


riLtt iMik 


Nieraz pytacie Państwo, jak przenieść grę z kasety 
na dyskietkę Problem ten nurtuje zwłaszcza świeżo 
upieczonych posiadaczy stacji dysków, którzy wię 
kszość swych zasobów mają jeszcze na taśmach. 

Na to pytanie nie ma jednoznacznej odpowiedzi Wie¬ 
le programów kasetowych zostało wcześniej adaptowa¬ 
nych właśnie z dysku. Bywa. że są poprzedzone tzw 
wykrzyknikiem, czyli krótkim programem ładującym, 
który naśladuje DOS. Wtedy taki program przenosi się 
bez kłopotu, pomijając tylko "wykrzyknik". Zdarzają 
się jednak programy typowo kasetowe, w formacie 
"BOOT", czyli przeznaczone do wczytywania podczas 
zimnego startu komputera. Dzielą się one na jednoczę¬ 
ściowe 1 wleloczęśclowe. O tych drugich zapomnijmy' 
Niemal do każdego z nich trzeba podchodzić indywldu 
alnle. Programy jednoczęściowe natomiast można uru 
chamiać stosunkowo łatwo. Największy kłopot mamy 
z DOS-em, bo większość programów "BOOT" zajmuje 
to samo miejsce, co DOS. Poniższy program wczytuje 
"BOOT" w wolny obszar pamięci, a dopiero potem 
przenosi go w stosowne miejsce 1 uruchamia Proce- 
durka, która to robi, mieści się w całości na stronie 0 
Daje to wysokie prawdopodobieństwo uniknięcia kon 
fliktu Pełnowartościowy program DOS-owy uzyskuje 
my przy pomocy Zgrywusa+ z TA 1/92. Proponuję wy 
próbować BFL na grze The Moulng Cubes ze stron 4-5 

IJ 1000 REM *-* 

GY 1002 REM : Boot File Loader : 

FV 1004 REM : Janusz B. Wi$niewski s 
YY 1006 REM : (c) 1992 Tajemnice ATARI : 

JP 1008 REM *-* 

MQ 1010 DATA ffff8800d000a5848502a58585 
FG 1020 DATA 0318a58269068584a583690085 
HB 1030 DATA 85a000bl869182c810f9a58649 
RM 1040 DATA 8085863002e687a58249808582 
TP 1050 DATA 3002e683c681d0df20cb00a902 
!. • 1060 DATA 850920ce006c0a006c84006c02 


YS 1070 DATA 0000800b82205e8120de80a204 
VJ 1080 DATA 207b803005de4803d0036c0a00 
UG 1090 DATA 20338130e920af80a206207b80 
XR 1100 DATA 30f6de4803f0fIce4803d0ecad 
FN 1110 DATA 0c820920c979f007c96ed0df 4c 
XC 1120 DATA 03 80a005bl8699 80008810f84c 
WX 1130 DATA 8800a000ca300ab97e81c8c99b 
FP 1140 DATA d0f8f0f38aa2009d480318986d 
YJ 1150 DATA 78819d4403a9009d49036d7981 
RI 1160 DATA 9d4503a9099d42034c56e4204b 
OW 1170 DATA 80a200a9059d4203ad76819d44 
XB 1180 DATA 03ad77819d45039d49034c56e4 
KE 1190 DATA 4820a080684a4a4a4a290f0930 
PI 1200 DATA c93a900269069dcd81ca60a005 
ZK 1210 DATA a21dbl86209780ca8810f7a200 
QX 1220 DATA 204b80a2054c4b802056e4100c 
SE 1230 DATA C088f00ca202204b80a0ff60a2 
NE 1240 DATA 03d0f6a00160a210a90c9d4203 
PW 1250 DATA 2056e4a9038d0fd29830df60a2 
FC 1260 DATA 109d4a03a9039d4203a03acc0d 
KY 1270 DATA 82f007cc0e82f002a900186d7a 
LU 1280 DATA 819d4403a9006d7b819d4503ad 
WC 1290 DATA 0fd229080a0a0a0a9d4b032056 
ZK 1300 DATA e430a6bd4a0309039d42039860 
NH 1310 DATA a90420f1803023a5869d4403a5 
XR 1320 DATA 879d450338ade502e5869d4803 
NQ 1330 DATA ade602e5879d490320c6803003 
FQ 1340 DATA 4cde8060a9300d01038d0a82a2 
ZM 1350 DATA 01ade7028586ade80285874c4b 
SZ 1360 DATA 80000C827e81098200009ba0ca 
YX 1370 DATA c2d7a0c2efeff4a0e6e9ece5a0 
BG 1380 DATA ecefele4e5f2a0f6aea0blaeb0 
ZQ 1390 DATA a09b492f4f206572726f72219b 
YS 1400 DATA 46696c6520746f6f206c6f6e67 
MS 1410 DATA 219b456e74657220626f6f7420 
NX 1420 DATA 66696c65206e616d653a9b426f 
KF 1430 DATA 6f74206865616465723a202e2e 
XR 1440 DATA 202e2e202e2e202e2e202e2e20 
GT 1450 DATA 2e2e9b436f6e74696e75652062 
VH 1460 DATA 6f 6f 742070726f636573733f20 
EC 1470 DATA 28592f4e299b44303ae002el02 
IB 1480 DATA 0080 
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Zasady goiła są dziecinnie proste. Należy trafić piłką do AQ 
dziury uderzając Jak najmniejszą liczbę razy. Uwaga.* gra 
w rzeczywistości stanowi skrzyżowanie golfa z bilardem Q0 
Piłka nie wypada na "out", lecz odbija się od brzegów pola KX 


Klawiszami "+" 1 ustawia się "celownik" Cyframi 


od 1 do 9 wykonuje się uderzenie z różną siłą. 

XX 

BM 

9 REM Liczba i imiona graczy 

OA 

BJ 

10 OPEN #1,4,0,"K :” 


LY 

11 DIM Z$ ( 100),A$(30),S{10) 


CP 

15 GRAPHICS 0: PRINT " ATA 

BL 


RI GOLF 


XN 

20 FOR A=1 TO 100 :Z $(A) = " “ :NEXT A 


PX 

25 FOR A=1 TO 10:S(A)=0:NEXT A 

ID 

WG 

30 PRINT :PRINT :PRINT "PODAJ LICZBĘ G 

KW 


RACZY (1-10)";:INPUT NP:IF NP>10 OR NP 

ZU 


<1 THEN 10 

XI 

JZ 

32 FOR A=1 TO NP:S(NP)=0:PRINT "IMIĘ G 



RACZA "; A; : INPUT A$:IF LEN(A$)>10 THEN 

MR 


A$=A$(1,10) 


AU 

33 IF LEN(A$)=0 THEN A$=" * 

KM 

JE 

34 Z$(A*10—LEN ( A$ ) +1,A*10 ) =A$:NEXT A:G 



RAPHICS 5 : POKE 752,1 


BL 

38 SETCOLOR 0,0,0:SETCOLOR 4,2,6:GOTO 

ZY 


300 


PR 

39 REM Tablica wyników 

CH 

ED 

40 GRAPHICS 0 : POKE 752,1:PRINT " PUN 



KTY KARNE :": PRINT :FOR A=1 TO NP:PRINT 



Z$(A*10—9,A*10),S(A):NEXT A 

EH 

OY 

41 POKE 764,255 

BB 

JR 

42 PRINT : PRINT "NACISNIJ KLAWISZ":GET 



# 1,A:GRAPHICS 5 : POKE 752,1 : SETCOLOR 0 

MV 


,0,0:SETCOLOR 4,3,10 


BY 

43 SETCOLOR 4,2,6:RETURN 

TE 

SJ 

49 REM Czytanie klawiatury 


AC 

50 GET # 1,Z : IF Z<58 AND Z>48 THEN HH=( 



Z—48 )* 11 : HM=0:VM=0:COLOR A:PLOT C1,C2: 

GD 


GOTO 200 


ZT 

60 T=0:IF Z<>43 THEN 70 

OV 

LT 

62 CP=CP+1 : IF CP=17 THEN CP=1 


UW 

64 COLOR A : PLOT Cl,C2:GOTO 100 

MF 

CT 

70 IF Z<>42 THEN GOTO 50 

LM 

HV 

72 CP=CP-1 : IF CP=0 THEN CP=16 

GG 

UX 

74 COLOR A:PLOT Cl,C2:GOTO 100 


FI 

90 COLOR 1 : PLOT HPl,HP2:PLOT HP1+1,HP2 


RL 

92 COLOR 1 : PLOT Bl,B2:LOCATE C1,C2,A:I 

ZW 


F A<>2 THEN COLOR 3:PLOT Cl,C2:GOTO 50 


QN 

94 COLOR 3:PLOT Cl,C2:GOTO 50 


DL 

100 GOTO CP+100 

AA 

YH 

101 Cl=Bl:C2=B2+2:M1=0:M2=-1:GOTO 90 

RD 

EP 

102 C1=B1+1:M1=-1:GOTO 90 

SY 

IS 

103 Cl=Bl+2:C2=B2+2:Ml=-2:GOTO 90 


KY 

104 C2=B2+1:M2=-0.5:GOTO 90 

VQ 

UJ 

105 C2=B2:M2=0:GOTO 90 

RZ 

LB 

106 C2=B2-1:M2=0.5:GOTO 90 

CW 

IQ 

107 Cl=Bl+2:C2=B2-2:Ml=-2:M2=1:GOTO 90 


FB 

108 Cl=Bl+l:Ml=-l:GOTO 90 

LJ 

ter 

109 Cl=Bl:M1=0:GOTO 90 

JH 

IC 

110 C1=B1—1:Ml=l:GOTO 90 

QX 

KL 

111 Cl=Bl-2:C2=B2-2:M1=2:M2=1:GOTO 90 


KR 

112 C2=B2-1:M2=0.5:GOTO 90 


m 

113 C2=B2:M2=0:GOTO 90 

KY 

LA 

114 C2=B2+1:M2=-0.5:GOTO 90 


FD 

115 Cl=Bl-2:C2=B2+2:Ml=2:M2=-1:GOTO 90 



116 C1=B1—1:M1=1:GOTO 90 

150 COLOR 3:PLOT HPl,HP2:PLOT HP1+1,HP 
2:IF S>1 THEN GOTO 156 

151 REM Trafiony za pierwszym razem 

152 PRINT "JESTES NIESAMOWITY !":FOR A 
=1 TO 5:FOR B=1 TO 59:SETCOLOR 4,B/4+l 
,14:SOUND 0,B,0,10:NEXT B:NEXT A 

154 SETCOLOR 4,3,10:SOUND 0,0,0,0:GOTO 
158 

155 REM Trafiony po S uderzeniach 

156 PRINT “TRAFIŁEŚ W “;S;“ UDERZENIAC 
H":FOR A=1 TO 50:SOUND 0,A,10,10:NEXT 
A:FOR A=49 TO 2 STEP -1 

157 SOUND 0,A,10,10:NEXT A:SOUND 0,0,0 
,0 

158 FOR A=1 TO 700:NEXT A:PRINT CHR$(2 
8 );" 

“:PRINT CHR$(28);CHR$(28);:RETURN 
200 Dl=Bl:D2 =b 2:COLOR 2:PLOT Bl,B2:IF 
(ABS(Ml)=1 AND HM=1) OR ABS(M1)=2 THEN 
GOTO 204 

202 HM=1:GOTO 210 

204 D1=B1+SGN(M1):HM=0 

205 T=T+1:IF T>4 THEN RC=2:RETURN 

210 SOUND 0,200,10,10:SOUND 0,0,0,0:LO 
CATE Dl,B2,A:IF A=0 THEN RC=0:RETURN 

211 IF (DlOHPl AND DlOHPl + 1 ) OR D2<> 
HP2 THEN IF A=1 THEN RC=0:RETURN 

212 COLOR 2:PLOT Dl,B2:Bl=Dl:LOCATE HP 
1, HP2 , A: IF AOl THEN S (PT) =S (PT)+S-P: R 
C=l:GOSUB 150:RETURN 

214 LOCATE HP1+1,HP2,A:IF A<>1 THEN S( 
PT)=S(PT)+S-P:RC=1:GOSUB 150:RETURN 
220 COLOR 2:PLOT Bl,B2:IF (ABS(M2)=0.5 
AND VM=1) OR ABS(M2)=1 THEN D2=B2+SGN 
(M2):VM=0:GOTO 230 
222 VM=1 

230 LOCATE B1,D2,A:IF A=0 THEN RC=0:RE 

TURN * 

231 IF (DlOHPl AND DlOHPl+1) OR D2<> 
HP2 THEN IF A=1 THEN RC=0:RETURN 

232 COLOR 3:PLOT Bl,D2:B2=D2:LOCATE HP 
1,HP2,A:IF A=3 THEN S(PT)=S(PT)+S-P:RC 
=l:GOSUB 150:RETURN 

234 LOCATE HP1+1,HP2,A:IF A=3 THEN S(P 
T)=S(PT)+S-P:RC=1:GOSUB 150:RETURN 
240 T=0:HH=HH-1:IF HH<0 THEN RC=2:RETU 
RN 

242 GOTO 200 

299 REM Pierwsze pole gry 

300 COLOR 2:FOR A=3 TO 36:PLOT 27,A:DR 
AWTO 45,A:NEXT A:PRINT ” PIŁKA # 1 

2 UDERZENIA" 

302 P=2:FOR PT=1 TO NP:S=1:PRINT Z$(PT 
*10-9,PT*10);“ uderza":B1=INT(RND(0)*1 
1+32):B2=31:CP=1 

304 HPl=35:HP2=6 

305 GOSUB 100 

310 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 
GOTO 310 

320 IF RC=1 THEN NEXT PT:GOTO 400 
325 GOSUB 3000 

330 IF Dl=26 OR Dl=46 THEN Ml=-Ml:GOSU 
B 200:GOTO 310 

332 M2=-M2:GOSUB 200:GOTO 310 

399 REM Drugie pole gry 

400 GOSUB 40:COLOR 2:FOR A=13 TO 36:PL 
OT 27,A:DRAWTO 45,A:NEXT A:FOR A=0 TO 
11:PLOT 27+A,13-A:DRAWTO 70,13-A 

402 NEXT A:PRINT " PIŁKA #2 2 UDER 

ZENIA”:FOR PT=1 TO NP:S=1:PRINT Z$(PT* 
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10-9,PT*10);" uderza" 

DR 404 HP1=60:HP2=8:B1=INT(RND(0)* 11+32): 
B2=31 

ZZ 405 CP=l:GOSUB 100 

WM 420 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 
GOTO 420 

WY 430 IF RC=1 THEN NEXT PT:GOTO 500 
SC 435 GOSUB 3000 

GG 440 IF D2=l OR D2=37 OR (D2=14 AND Dl> 
45) THEN M2=—M2:GOSUB 200:GOTO 420 
AB 442 IF Dl<27 OR Dl=46 OR Dl=71 THEN Ml 
=-Ml:GOSUB 200:GOTO 420 
XO 444 A=M1:Ml=-M2*2:M2=-A/2:GOSUB 200:GO 
TO 420 

BO 499 REM Trzecie pole gry 
UD 500 GOSUB 40:COLOR 2:FOR A=13 TO 36:PL 
OT 17,A:DRAWTO 55,A:NEXT A:FOR A=0 TO 
11:PLOT 17 +A,13-A:DRAWTO 55-A,13-A 
IW 502 NEXT A:COLOR l:PLOT 36,10:DRAWTO 3 
6,36 

XV 510 PRINT ■' PIŁKA #3 2 UDERZENIA": 

FOR PT=1 TO NP:PRINT Z$(PT*10-9,PT*10) 
;" uderza":B1=INT(RND(0)*11+42) 

LB 512 S=l:B2=32:CP=l:HPl=25:HP2=32:GOSUB 
100 

YF 520 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 
GOTO 520 

YE 530 IF RC=1 THEN NEXT PT:GOTO 600 
RQ 540 GOSUB 3000 

YH 550 IF D2=l OR D2=37 THEN M2=-M2:GOSUB 
200:GOTO 520 

ES 552 IF Dl=16 OR Dl=36 OR Dl=56 THEN Ml 
=-Ml:GOSUB 200:GOTO 520 
LU 554 IF Dl<36 THEN A=M1:M1=-M2*2:M2=-A/ 
2:GOSUB 200:GOTO 520 

AH 556 A=M1:M1=M2*2:M2=A/2:GOSUB 200:GOTO 
520 

JC 599 REM Czwarte pole gry 
N 600 GOSUB 40:COLOR 2:FOR A=13 TO 24:PL 
OT 21,A:DRAWTO 63,A:NEXT A:FOR A=25 TO 
36:PLOT 21,A:DRAWTO 35,A:NEXT A 
KQ 602 FOR A=1 TO 8:PLOT 36+A,24+A:DRAWTO 


63-A,24+A:PLOT 21+A,13-A:DRAWTO 63-A, 
24+A:PLOT 21+A,13-A:DRAWTO 63-A,13-A:N 
EXT A 

QT 604 COLOR 1:PLOT 36,25:DRAWTO 36,14:DR 
AWTO 51,14:PLOT 51,14:DRAWTO 51,14 
MA 610 P=3:PRINT " PIŁKA #4 3 UDERZEŃ 

IA":FOR PT=1 TO NP:PRINT Z$(PT*10-9,PT 
*10);" uderza":B1=INT(RND(0)*8)+20 
RP 615 S=1:B2=32:CP=1:HP1=43:HP2=19:GOSUB 
100 

ZY 620 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 
GOTO 620 

ZK 630 IF RC=1 THEN NEXT PT:GOTO 700 
RR 640 GOSUB 3000 

CQ 650 IF D2=4 OR D2=12 OR D2=37 OR (D2=3 

3 AND Dl>44 AND Dl<55) OR (D2=14 AND D 
1>36) THEN GOTO 654 

SW 652 GOTO 656 

QB 654 M2=-M2:GOSUB 200:GOTO 620 

BG 656 IF Dl=20 OR Dl=49 OR Dl=51 OR Dl=6 

4 OR Dl=36 THEN Ml=-Ml:GOSUB 200:GOTO 
620 

RO 658 IF (Dl>56 AND D2<13) OR (D2>24 AND 
Dl<57) THEN A=M1:M1=M2*2:M2=A/2:GOSUB 
200:GOTO 620 

ZE 659 A=M1:Ml=-M2*2:M2=-A/2 
DX 660 GOSUB 200:GOTO 620 
XE 699 REM Piąte pole gry 

NL 700 GOSUB 40:COLOR 2:FOR A=25 TO 36:PL 
OT 41,A:DRAWTO 55,A:NEXT A:FOR A=1 TO 
9:PLOT 33-A,25-A:DRAWTO 55,25-A 
CA 702 PLOT 24+A,11-A:DRAWTO 55-A,11-A:NE 
XT A:FOR A=1 TO 5:PLOT 24,16-A:DRAWTO 
55,16-A:NEXT A 

KE 704 COLOR l:FOR A=1 TO 2:PLOT 55,25-A: 

DRAWTO 45,15-A:NEXT A 
GN 710 PRINT " PIŁKA #5 2 UDERZENIA": 

1 P=2:FOR PT=1 TO NP:S*1:PRINT Z$(PT*10- 
I 9,PT*10);" uderza":CP=1 
MZ 715 B1=INT(RND(0)*8)+43:B2=33:HP1«33:H 
I P2=13:GOSUB 100 

BR 720 IF RC*2 THEN S=S+1:CP“1:GOSUB 100: 
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GOTO 720 



WM 

1004 COLOR 1:PLOT 30,11:DRAWTO 33,14:D 

AQ 

730 IF RC=1 THEN NEXT PT:GOTO 800 




RAWTO 33,21:DRAWTO 36,24:PLOT 37,24:DR 

RS 

740 GOSUB 3000 




AWTO 40,21:DRAWTO 40,14-DRAWTO 43,11 

HS 

750 IF D2=l OR D2=37 OR (D2=25 AND Dl< 



AG 

1010 PRINT " PIŁKA #8 3 UDERZENIA" 


41) THEN M2=-M2:GOSUB 200:GOTO 720 




:P=3:FOR PT=1 TO NP:S=1:PRINT Z$(PT*10 

EH 

752 IF Dl=23 OR Dl=40 OR Dl=56 THEN Ml 




-9,PT*10);" uderza" 


=-Ml:GOSUB 200:GOTO 720 



WU 

1015 B1 = INT(RND(0)*8+32):B2=33:HP1=36: 

NU 

754 IF Dl<40 AND D2<11 THEN A=Ml:Ml=-M 




HP2=17:CP=1:GOSUB 100 


2*2:M2=-A/2:GOSUB 200:GOTO 720 



GW 

1020 IF RC=2 THEN S=S+1:CP=1:GOSUB 100 

DL 

756 A=Ml:Ml=M2*2:M2=A/2:GOSUB 200:GOTO 




-.GOTO 1020 


720 



IJ 

1030 IF RC=1 THEN NEXT PT:GOTO 1100 

AF 

799 REM Szóste pole gry 



XT 

1040 GOSUB 3000 

JA 

800 GOSUB 40:COLGR 2:FOR A=25 TO 36:PL 



YC 

1050 IF D2=37 OR D2=2 THEN M2=-M2:GOSU 


OT 31, A:DRAWTO 45,A:NEXT A:FOR A=1 TO 




B 200:GOTO 1020 


11:PLOT 31,25-A:DRAWTO 51+A,25-A 



WH 

1051 IF Dl=33 OR Dl=40 THEN IF D2=21 O 

CZ 

801 NEXT A 




R D2=14 THEN GOTO 1054 

LT 

802 FOR A=2 TO 13:PLOT 31,A:DRAWTO 62, 



XX 

1052 IF Dl=20 OR Dl=53 OR Dl=33 OR Dl= 


A:NEXT A: COLOR l:FOR A=1 TO 2:PLOT 30+ 




40 OR Dl=28 OR Dl=44 THEN Ml=-Ml:GOSUB 


A,24:DRAWTO 39+A,15:NEXT A 




200:GOTO 1020 

TY 

804 PLOT 41,15:DRAWTO 41,10:PLOT 49,10 



FP 

1054 IF (Dl>43 AND D2>18) OR (Dl<30 AN 


:DRAWTO 49,4 




D D2<11) OR (Dl>36 AND Dl<44) THEN A=M 

FS 

810 PRINT " PIŁKA #6 3 UDERZENIA": 




1:Ml=-M2*2:M2=-A/2:GOSUB 200:GOTO 1020 


P=3 : FOR PT=1 TO NP:S=1:PRINT Z$(PT*10- 



CN 

1056 A=Ml:Ml=M2*2:M2=A/2:GOSUB 200 


9,PT*10); M uderza" 



OG 

1060 GOTO 1020 

PG 

815 Bl=INT(RND(0 ) *8 ) +34:B2=33:HPl=35 : H 



CJ 

1099 REM Dziewiąte pole gry 


P2=13:CP=1:GOSUB 100 



AC 

1100 GOSUB 40:COLOR 2 : FOR A=27 TO 36:P 

DF 

820 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 




LOT 29,A : DRAWTO 43,A:NEXT A:FOR A=3 TO 


GOTO 820 




27:PLOT 20,A : DRAWTO 52,A:NEXT A 

BW 

830 IF RC—l THEN NEXT PT:GOTO 900 



LB 

1102 COLOR 1 : PLOT 34,10:DRAWTO 31,13:P 

RT 

840 GOSUB 3000 




LOT 39,10:DRAWTO 42,13:PLOT 27,14:DRAW 

ED 

850 IF D2=5 OR D2=l OR D2=37 OR (D2=25 




TO 35,22:PLOT 38,22:DRAWTO 46,14 


AND Dl>45 ) OR (( D2=10) AND (Dl=41 OR 



DW 

1110 PRINT •' PIŁKA #9 4 UDERZENIA" 


Dl=49 ) ) THEN M2=—M2:GOSUB 200:GOTO 820 




:P=4:FOR PT=1 TO NP:S=1:PRINT Z$(PT*10 

SB 

852 IF Dl=30 OR Dl=46 OR Dl=63 OR Dl=4 




-9,PT*10);" uderza" 


9 OR (Dl=41 AND D2<=16) THEN Ml=-Ml:GO 



WW 

1115 B1=INT(RND(0 ) *8+32 ) :B2=33 : HPl=36 : 


SUB 200:GOTO 820 




HP2=17:CP=1:GOSUB 100 

EG 

854 A=Ml:Ml=-M2*2:M2=-A/2:GOSUB 200:GO 



IS 

1120 IF RC=2 THEN S=S+1:CP=1 : GOSUB 100 


TO 820 




:GOTO 1120 

JH 

899 REM Siódme pole gry 



IK 

1130 IF RC=1 THEN NEXT PT:GOTO 2000 

II 

900 GOSUB 40:COLOR 2:FOR A=1 TO 9:PLOT 



XV 

1140 GOSUB 3000 


25-A,37-A : DRAWTO 54,37-A:PLOT 15+A,17 



NE 

1150 IF D2=37 OR D2=2 OR D2=28 THEN M2 


-A : DRAWTO 51-A,17-A:NEXT A 




=-M2:GOSUB 200:GOTO 1120 

LZ 

902 FOR A=21 TO 27:PLOT 16,A:DRAWTO 54 



KA 

1152 IF Dl=19 OR Dl=53 OR ((Dl=28 OR D 


,A:NEXT A: FOR A=1 TO 4:PLOT 16,16+A:DR 




1=44} AND D2>26) THEN Ml=-Ml:GOSUB 200 


AWTO 50+A,16+A:NEXT A 




:GOTO 1120 

VD 

904 COLOR 1:PLOT 38,ll:DRAWTO 50,23:PL 



JH 

1154 IF (Dl>37 AND D2>13) OR (Dl<36 AN 


OT 38,16:DRAWTO 45,23:PLOT 26,27:DRAWT 




D D2<14) THEN A=Ml:Ml=-M2*2:M2=—A/2:GO 


O 38,27 




SUB 200:GOTO 1120 

IX 

906 PLOT 39,27:DRAWTO 39,36 



CP 

1156 A=M1:Ml=M2*2:M2=A/2:GOSUB 200 

GP 

910 PRINT " PIŁKA #7 3 UDERZENIA": 



OU 

1160 GOTO 1120 


P=3:FOR PT=1 TO NP:S=1:PRINT Z$(PT*10- 



CE 

1999 REM Zakończenie gry 


9,PT*10);“ uderza" 



IE 

2000 GRAPHICS 0:PRINT " WYNIKI KONC 

OY 

915 Bl=INT(RND(0)*8)+44:B2=33:HPl=33:H 




OWE:":PRINT :PRINT " GRACZ PUNKTY 


P2=32:CP=1:GOSUB 100 




KARNE":PRINT "-" 

FD 

920 IF RC=2 THEN S=S+1:CP=1:GOSUB 100: 



IV 

2005 FOR A=1 TO NP:PRINT Z$(A*10-9,A*1 


GOTO 920 




0);" : ";S(A):NEXT A 

DD 

930 IF RC=1 THEN NEXT PT:GOTO 1000 



TW 

2010 PRINT :PRINT "Jeszcze raz (T/N)"; 

RU 

940 GOSUB 3000 



GP 

2015 POKE 764,255 

BK 

950 IF Dl=15 OR Dl=55 OR (Dl=39 AND D2 



NR 

2020 GOSUB 3000:A=PEEK ( 764 ): IF A<>45 A 


>26) THEN Ml——Ml:GOSUB 200:GOTO 920 




ND A<>35 THEN 2020 

OV 

952 IF D2=37 OR D2=7 OR D2=27 THEN M2= 



GS 

2025 POKE 764,255 


-M2 : GOSUB 200 : GOTO 920 



X5 

2030 IF A=45 THEN RUN 

ZM 

954 IF Dl<25 AND D2<17 THEN A=M1:M1=-M 



AC 

2040 PRINT : PRINT : PRINT "DO ZOBACZENI 


2*2:M2=-A/2:GOSUB 200:GOTO 920 




A. " :CLOSE #1:END 

GP 

956 A=Ml:Ml=M2*2:M2=A/2:GOSUB 200:GOTO 



RJ 

3000 SOUND 0,50,10,10 


920 



ND 

3005 HH=HH-10:IF HH<2 AND HH>-6 THEN H 

UJ 

999 REM Ósme pole gry 




H=2 

PW 

1000 GOSUB 40:COLOR 2:FOR A=27 TO 36:P 



EG 

3010 SOUND 0,200,10,10 


LOT 29,A : DRAWTO 43,A:NEXT A:FOR A=1 TO 



XI 

3020 SOUND 0,0,0,0:RETURN 


8: PLOT 29-A,27-A : DRAWTO 43+A,27-A 





MH 

1002 PLOT 21,19-A:DRAWTO 52,19-A:PLOT 






21+A,11-A : DRAWTO 52-A,11-A:NEXT A 




Lesław Pasternak 
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Wykaz punktów sprzedających bieżące i archiwalne numery Tajemnic Atari. Drukiem pogrubionym zaznaczono 
miejsca, w których można równocześnie nabyć legalne oprogramowanie firmy L.K, AYALON. 


DRZAJA 

Mirowska 6 , Częstochowa 

GM NEXUS 

NMP11, Częstochowa 

SCALAK 

NMP 39/41, Częstochowa 

ELF Sklep Wielobranżowy 
Targowisko, Pawilon IV/5 
Gdańsk Wrzeszcz 

MICROMAN 
Plebiscytowa 31, Katowice 
Rynek 4, Rybnik 
DH HERMES, Rybnik 
SUPERMARKET, Sosnowiec 
Wojska Polskiego 14, 
Bielsko-Biała 
KRYM ARYS 
Toruńska 63, Koło 
Księgarnia Techniczna 
Podwale 4, Kraków 

BIT-PLUS 

Bierza nowska 1, Kraków 
RETURN Studio Komputerowe 
Zamojska 25, Lublin 


POMAREX Lublin 
Bernardyńska 20, Niecała 12 
KOBER, Grabowa SSa, Lubin 

Księgarnia Techniczna NOT 
Komuny Paryskiej 5a, Łódź 

#TRACK# 

Reymonta 23, Opole 
Kołłątaja 11, Opole 

Zakład Usług Komputerowych 
Ogrody lla, Ostrowiec Św. 

P.H. METRO-bms 
Ratajczaka 31, Poznań 

Księgarnia Techniczna "DOM 
KSIĄŻKI" 

Paderewskiego 6, Poznań 

BAJT, Rejtana 33, Rzeszów 
DĄBI, Szopena, Rzeszów 
BARTEK, Kościuszki, Rzeszów 
DOMAR 

Zygmuntowska, Rzeszów 
STEL-DOM, 

Pomorska 7, Słupsk 


SONIX Sp. z o.o. 

Rapackiego 3, Szczecin 
DT Centrum, Szczecin 
Rydla (Helios 2), Szczecin 
COMPUTER SHOP 
Boh. Warszawy 18, Szczecinek 
KWANT Agencja Handlowa 
Żydowska 6, Tarnów 
COMPUTER CENTER WARS 
Marszałkowska 104/122 
Warszawa 
ATARI STUDIO 

Generała Abrahama 4 Warszawa 
O.K.W. ELEKTRONIKA 
Mokotowska 51/53, Warszawa 
OSKAR,, Warszawa 
Igańska 26, 

Grochowska 207 (UN1YERSAM) 
Jana Pawła U 58 <MAXIM) 
STUDIO ZET, DH SEZAM, 
Marszałkowska 126, Warszawa 
TAL Warszawa 
Grójecka 65a, Bracka 25 
PDT Wola, PDT Praga 


DH ŁADA 3p 
Oławska 27, Wrocław 
DOMAIN SOFT’ 

Kołłątąja 31, Wrocław 

KSIĘGARNIA Staromiejska 
Żeromskiego 16, Zielona Góra 

GAMĘSOFT 

Francuska 52, Zielona Góra 

Zachęcamy właścicieli sklepów 
zainteresowanych sprzedażą na¬ 
szego pisma lub oprogramowania, 
do kontaktu z naszą firmą Naj¬ 
szybszy kontakt telefoniczny pod 
numer Rzeszów 374-71 wew. 
274, 275 w godz. 7:30 -15.00. Po¬ 
siadamy szeroki asortyment legał 
nych programów przeznaczonych 
dla różnych typów komputerów, 
Oraż akcesoriów komputerowych 
Oferujemy korzystne warunki 
współpracy. Firmy bądź sklepy 
zainteresowane kolportażem ga 
zei otrzymują je na zasadach ko 
misowych, a ponadto ich adresy 
będą có miesiąc drukowane 
w TA, co stanowi dobrą reklamę. 


Oferujemy możliwość wysyłkowego zakupu akcesoriów komputerowych. 
Zamówienia (na kartach pocztowych) przyjmujemy pod adresem; 

L. K. AYALON skr. 46 38-100 STRZYŻÓW 


Do podanych cen należy doliczyć koszt wysyłki (20000 zł) 
W przypadku zamówienia kilku akcesoriów kwota ta doliczana jest do 
ich wartości tylko raz. Jeżeli zdecydują się Państwo zakupić u nas 
równocześnie z akcesoriami oprogramowanie z oferty umieszczonej na 
ostatniej strome pisma, koszt wysyłki me jest doliczany do wartości 
zamówionego towaru. Zamówienia realizujemy drogą pocztową, 
należność uiszczana jest ptzy odbiorze przesyłki. Wszystkie ceny podane 
są w zł i ważne do ukazania się następnego numeru Tajemnic Atan 


Dyskietki 5.25’ 


zamawiana lość 

10 20-40 

50 100 


cena za sztukę 

No name DD 

7200 6700 

6300 

YERBATIM COLORS DD 

12200 11400 

10700 

BASFDD 

13000 12000 

11300 

VERBATIM datalife + DD 

15000 14000 

13000 

Pudełka 

na dyski 5.25’ 


Pojemność pudełka 

Cena 


5 

25000 


10 

30000 


50 

100000 


100 

130000 



Joysticki 

QUICKJOYII SV122 (auto fire, styki blaszane) 115000 

QUICKSHOTII QS 102n (auto fire, styki blaszane) 115000 
QUICKSHOTII plus QS 102p (auto fire, mikrostyki) 160000 
JET FIGHTER SV126 (auto fire, mikrostyki) 230000 


Dyskietki czyszczące głowice w stacjach dysków 


525’ 50000 

Kaseta czyszcząca do magnetofonów 25000 

Filtry monitorowe siatkowe 

mono/kolor, 14 cali. zachodni 190000 

mono/kolor, 14 cali, z uziemieniem zachodni 230000 

Ponadto 

złodziejka antenowa" umożliwia podłączenie 
do telewizora anteny i komputera jednocześnie 35000 

Magie Clip - uchwyt na fiszki do monitora 35000 

Dziurkacz do dyskietek (zezwolenie na zapis) 50000 

Pokrywy na komputery Atan 65/130/800 XE 50000 

Taśma barwiąca do drukarek STAR LC10/20 70000 

Złącze MICROPRINT umożliwiające 

podłączenie do Atan dowolnej drukarki 190000 

Literatura 

Leksykon komputerowy dla początkujących (72 str ) 25000 

Słownik terminów i komunikatów komp. (72 str ) 25000 

Instrukcja Atari 65 XE/130 XE (128 str ) 30000 

Atan Basic dla dzieci (102 str ) 30000 

Logo Atan 30000 

Poznajemy komputer Atan XL/XE (87 str.) 30000 

Mac 65 (86 str.) 30000 

Opisy gier na małe ATARI 35000 

Atari basie 55000 






programowania w języku asemblera. 


KS 


Twojego Atari: 


□ QU1CK ASSEMBLER 

□ BUG HUNTER 

□ XL FRIEND 

Cena zestawu: 62.000 zł 


Wymienione niżej programy nie powstały w na 
szej firmie Zachęcamy jednak do ich zakupu 

MIECZE VALDGIRA przygodowa gra fan 
tasy z doskonałą muzyką Cena 39 000 zł 
BATTLE SHIPS gra w 'okręty" z kompute 
rem Cena 39 000 zł 

CU TacTic gra logiczna recenzja TA 2/92 

Cena 39 000 zł 

□ KOLONY gra ekonomiczna, recenzja 

TA 2/92 Cena 39 000 zł 

□ GEOGRAFIA - prosty program edukacyjny 

Cena 35 000 zł 

Li ORTOGRAFIA któż nie ma z mą kłopotów^ 

Cena 39 000 zł 

CD VIDEOGRAPH narzędzie do tworzenia 
czołówek filmów VID EO Cena 43 000 zł 
Lj KULT pomysł jakby znany (ZYBEX), ale 
wykonanie o wiele lepsze Cena 42 000 zł 

MÓZGPROCESOR - wznowienie znanej 
gry tekstowej Cena 42 000 zł 

CU MASTER HEAD - gra logiczna z kilkunasto 
minutową muzyką Cena 42.000 zł 

□ RODERIC dawno zapowiadane przygody 
rycerza w starym zamczysku Cena 39 000 zł 

CU BERTYX zmagania z wrogim komputerem 
na planecie BERTYX Cena 39 000 zł 
OPERATION BLOOD Krwawe starcie 
z niezliczoną ilością przeciwników 
Tylko na dyskietce! Cena 40 000 zł 

MONSTRUM popularny robal w nowej 
oprawie Cena 40 000 zł 

SKARBNIK gra logiczna Cena 40 000 zł. 
CU I. Q. MASTER gra zręcznościowo 

logiczno-edukacyjna Cena 40 000 zł 

CD HUMANOID wspaniała gra zręcznościowa 

Cena 42 000 zł 

CD PONG gra zręcznościowa Cena 40 000 zł 
CD TANKS walka czołgów w labiryncie 

Cena 40 000 zł 

□ THECONVICTS gra labiryntowa 

Cena 40 000 zł 

CD GRY z TA trzy zestawy z grami publikowa 
nymi w Tajemnicach Atari 

1 Fac, QQ, Robal, Dalej mz Słońce 

2 Heartlight Puzzle, Oczko 

3 Odsiecz Follow Klocki, Pustynna Burza 
Cena jednego zestawu 30 000 zł, 

Komplet (3 zestawy) 75 000 zł 


prosimy kierować do 

L.K. AVALON 
skr poczt, 46 
38-100 Strzyżów 


MS 


oferujemy dla 


□ ROBBO Cena 29 000 zł 

wspaniała gra zręcznościowo logiczna 
] MISJA FRED Cena zestawu 39 000 zł 
Zmagania komandosa w tajnej MISJI, 
Wędrówka z FREDEM przez pełną zaga 
dek i niebezpieczeństw krainę 
CD LASERMANIA Cena zestawu 39 000 zł. 
ROBBO KONSTRUKTOR 
Efektowna gra logiczna 
- Program użytkowy pozwalający na tworze¬ 
nie gotowych samodzielnie działających gier 

□ AUTOMAT PERKUSYJNY Cena 42 000 zł 

- doskonały do tworzenia "muzyczek" kom¬ 
puterowych. Sprzedawany z instrukcją. 

□ SAPER gra strategiczna Cena 37 000 zł 

□ A.D.2044 wspaniała gra przygodowa 
z tekstem 

Cena gry na dysku 37 000 zł 
Cena gry na kasecie 39 000 zł 

□ CHAOS MUSIC COMPOSER 

pakiet zawiera program do komponowa 
ma, moduł odtwarzający oraz wyczerpującą 
instrukcję Cena pakietu 42 000 zł. 

□ PANTHER 

- wielofunkcyjny edytor tekstów pozwalają¬ 
cy drukować po polsku na wszystkich 
popularnych drukarkach 

Cena bez złącza 42 000 zł. 
Cena ze złączem MICROPRINT 220.000 zł 
HANS KLOSS Cena gry 37 000 zł 
poszukiwania planów tajnej brom w bun 
krze Wolfschanze 

TRI A Cena gry 37 000 zł. 

wciągająca gra zręcznościowo logiczna 

□ CAPTAIN G ATHER Cena 37 000 zł 

pierwsze plansze wydają się łatwe ... 

□ ADAX Cena 42 000 zł 

takiej 'komnatówki' jeszcze me było' 

□ GOLD HUNTER Cena 37 000 zł 

poszukiwacz złota w akcji. 

□ CHANGE Cena 37 000 zł 

coś dla miłośników łamigłówek 

□ THE JET ACTION Cena 40 000 zł 

kosmiczny RIVER RAID dla łamaczy joy 
sticków 

□ KLĄTWA Cena 45 000 zł 

najnowsze osiągnięcia w grach przygodo 
wych dostępne także na małe ATARI 

□ DAGOBAR Cena 37 000 zł 

- nowa gra logiczna 

□ KURS FIZYKI Cena 45 000 zł 

dudnienia, załamanie i odbicie fali 
efekt Dopplera, cykl Camo 

Najlepszy na "małe” Atari zestaw do 


Uregulowanie należności następuje przy od- 
btorze przesyłki. Zamówienia na kartach po¬ 
cztowych, które powinny zawierać wyszcze¬ 
gólnienie rodzaju nośnika (kaseta lub dysk) 


orazi 












